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DECOUVREZ LE SHARP 



PC- 1500 


Michel LHOIR 

Tome 1 Réf. : 261 - Prix : 85,00 F - parution Avril 
Tome 2 Réf. : 262 - Prix : 85,00 F - parution Mai 

Ces livres répondent à toutes vos questions sur le fonctionne- 
ment et les possibilités du SHARP PC- 1500 


Découvrez le Sharp PC- 1500, ses périphériques (magnétophone, imprimante, table 
digitale, module mémoire...) et son BASIC. 
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- - PC 1500 

1 "TORIAL 

Chers Sharpentiers, 

Comme vous avez pu le lire dans le mot de SHARP, le CLCIB s’officialise et passe en association loi de 
1901. Le projet des CLÜBS régionaux présenté dans le Bulletin III va enfin voir le jour. Vous qui aviez 
répondu à cette demande et qui aviez créé des CLÜBS, nous vous ouvrirons des pages dans notre Bulle- 
tin, dans votre Bulletin et nous établirons votre rôle par rapport à nous. 

Pour nous permettre de vous rencontrer, chers adhérents, le CLUB, pour la première fois va faire une 
exposition. Nous espérons que vous serez nombreux à venir nous voir sur le stand des SHARPENTIERS 
à la Foire de Paris (30 avril - 12 mai) et si (par malheur) vous ne pouviez venir, nous attendrons alors 
le SICOB (où nous aurons aussi un stand) pour nous entretenir avec vous. 

Que ferons-nous sur ces stands ? 

Nous vous présenterons nos matériels sous leurs formes les plus complètes, nous vous montrerons com- 
ment un MZ 80B vient à l’aide d’un PC 1500 et surtout nous serons là pour un meilleur échange de pro- 
grammes et d’informations. Nous vous y attendons nombreux... 

11 semblerait que le dernier Bulletin vous ait beaucoup plu, bien que quelques erreurs de typographie 
se soient glissées lors de l’impression. Excusez-nous et merci pour les nombreuses lettres d’encourage- 
ment que vous avez jointes à l’enquête. 

Nous tiendrons compte de vos critiques et vous donnerons le détail de cette enquête dès le prochain 
numéro. 

Dans ce Bulletin, vous trouverez surtout les détails et astuces sous forme de programmes ainsi que le 
L.M. tant attendu. 

Dans le prochain Bulletin, nous nous attarderons plus sur l’aspect pédagogique et reprendrons nos astu- 
ces avec de plus amples explications. 

C’est avec impatience que nous attendons vos programmes en L.M. et BASIC. 

A bientôt. 

Luc BÜRELLER 



LE LANGAGE MACHINE LH5801 


Voici, sans les macro-instructions l’ensem- 
ble des codes internes du PC 1500 connus 
à ce jour. 

C’est avec impatience que nous attendons 
vos premiers programmes. 

Tout d’abord, les registres. 

Il y a 6 registres de 8 bits utilisables par 
4 paire. 


x H x L 

CL ü, 


Lorsqu’ils sont utilisés en 16 bits, ils sont 
nommés X, CJ, Y. Il y a un accumulateur A, 
un registre d’interruption I, un registre de 
flag F, la pile SP et le compteur ordinal 


(PC). (Jn nom de registre entre parenthèses 
représente le contenu de l’adresse mémoire 
par ce registre. 

La lettre n représente une donnée sur un 
octet. 

La lettre e représente un saut sur un octet, 
le doublet nn représente une adresse sur 2 
octets. 
























PC 1500 


ÜN BASIC ETENDU 


Voici 3 exemples de programmes qui non 
seulement nous paraissaient répondre à 
un réel besoin, mais qui restaient de plus 
assez simples de réalisation : il s’agit d’un 
RENCJM, d’un DISP et d’un DELETE : 


En voici déjà la table : 


4854 

B6 

DELETE 

485F 

D4 

DISP 

4868 

D5 

RENÜM 

4872 

DO 



F080 38C5 5. 
F081 3930 § 
F082 396E * 
* 


Sans décrire en détail le fonctionnement des 
sous-routines du BASIC, des modes 
d’échange des paramètres, je vais tout de 
même, comme les proposaient les respon- 
sables du club lors du dernier bulletin, 
vous décrire en détail les différentes par- 
ties de ces 3 programmes en langage 
machine. 


Tout d’abord : le RENOM : renumérote 
leur programme de 10 en 10. 


RENOM 


FD 98 

PCJSH Y 

CC 65 

SBR CC 65 

5800 

LD Yh,00 

5A 00 

LD YL,00 

B5FF 

LD A, FF 

07 

CPA, (Cl) 

89 03 

JR NZ, + 3 

FD IA 

POP Y 

E2 

SBR E2 

B50A 

LDA, 0A 

F9 

RCF 

FDDA 

ADD Y, A 

94 

LD A,Yh 

41 

ILD (ü), A 

14 

LD A, Y1 

41 

ILD (ü), A 

05 

LD A, (ü) 

DD 

INCA 

FD CA 

ADD G, A 

9E 17 

JR-17 


Sauvetage du paramètre Y 
Mise en place des valeurs de départ 
le numéro de la ligne courante dans Y l’adresse 
correspondante dans 0. 

Test de fin de zone programme BASIC 

Test précédent négatif 

Incrémentation de 10 numéros pour la ligne BASIC 
suivante 

Chargement à la place de l’ancien numéro du nouveau 
numéro précédemment calculé 


Passage à la ligne de BASIC suivante puis répétition 



2 e programme 


Le DISP : fonction permettant l’affichage 
d’un PRINT sur 80 caractères. Vous avez 
certainement remarqué que le PRINT affi- 
chait seulement les 26. premiers caractè- 
res d’un message. Avec la nouvelle fonc- 
tion DISP, vous pourrez, en suivant la 
syntaxe suivante, afficher la totalité d’un 
message. 

PRINT « message » : DISP n 

avec 0^ n 225 

Le DISP (display) fera afficher la totalité 
du message en effectuant un décalage 
caractère par caractère avec une tempo- 
risation, entre chaque caractère, propor- 
tionnelle au paramètre « n » obligatoire. 
Pendant ce DISP, vous pourrez également 
stopper le dé calage e n maintenant enfon- 
cée la touche [space[ vous pourrez égale- 
ment accélére r ce d écalage en appuyant 
sur la touche 1 1 (curseur droite), ou 
même stopper l’affichage du message [ 
avant la f in de la chaîne en appuyant sur 
la touche 1 ca 1 . Au retour sous BASIC, les 
26 derniers caractères affichés restent à 
l’afffichage tant que le programme ne ren- 
contre pas de CLS ou d’autres PRINT. 


Explication détaillée 
du programme 


DE 37 
DO 00 34 
AE 78 73 
48 7B 
4A 61 
Al 
41 
44 

4E B0 
99 07 


DISP 

SBRDE, 37 Lecture des paramètres, enregistrement en MEV système 
SBRD0,0, + 34 de la durée du décalage, enregistrement dans ü de 


A 


LD (7873), A 
LDCJh, 7B 
LDCJI, 61 
DLD A, (ü) 
ILD (CI), A 
INC ü 
CP ÜE, BD 
JR NZ, -7 
BE EC AE CALL ECAE 
E |EC FA CALL'ECFA 
BE E4 2C CALL E42C 


B7 18 

CP 18 

8B 18 

JR Z, + 18 

m 20 

CP 20 

9BI1B 

JR Z, -B 

®#0C 

CP0C 6A c 

M0A 

JR Z, + A 

A5 78 73 

LDA, (7873) 

2Â 

LD XI, A 

B5 FF 

LDA, FF 

DF 

DEC A 

99 03 

JR NZ, -3 

07 

DJNZ, -7 

A5 7B 7 A LD A, (7B7A) 

99 30 

JR NZ, -30 

E2 

SBR E2 

E0 

SBR E0 


l’adrese du début du tampon PRINT 


Décalage dans le tampon PRINT des caractères : 
il s’effectue vers la gauche 


Affichage des 26 premiers caractères du tampon 

Mutation du cla vier, pu i s sau ts selon l’appui possible sur 
les touches [a], Ispacel , Ic^J . Pour toute autre touche ou 
aucune touche, on continue sans saut 


Temporisation en fonction de la valeur précédemment 
enregistrée en MEV système 


Test si le message est terminé : si oùi, retour au basic 
si non, on boucle de nouveau 


6 


3 e programme : 


Explication du programme 


Le DELETE : permet d’effacer une partie 
des programmes sans taper au clavier tous 
les numéros de ligne à effacer, cette fonc- 
tion admet 3 syntaxes : 

DELETE n,P : efface les lignes n à p 
(inclus). 

DELETE n : efface toutes lignes de pro- 
gramme à partir de la ligne n (incluse). 
DELETE, P : efface toutes les lignes du 
début de la zone programme jusqu’à la ligne 
P incluse. 

N.B. : DELETE 0 (ou DELETE 1) est équi- 
valent à NEW. 


DELETE 

C2 2C 06 SBR C2,2C,06 Lecture des paramètres et saut de 0E octets vers la suite 
CC 65 SBR CC,65 du programme si la première ligne n’est pas spécifiée. 

FD 88 PÜSH ü 

8E 0E JR + 0E Lecture de la ligne de départ lorsqu’elle est spécifiée : 

C6 SBR C6 appel (et changement dans X) de l’adresse 

correspondant à cette ligne 

DE 3D SBR DE, 3D Lecture de la 2 e ligne (d’arrivée) lorsqu’elle est spécifiée : 
DO 00 3A SBRD0,00,3A puis calcul de l’adresse correspondant à cette ligne. 

BE 39 10 CALL 3910 

FD A8 PCJSH X Sauvegarde de Y et rappel de l’adresse de la première 

ligne 



";A*:C=0: IF ft$=‘N'LET C=*8 


a 


10 INPUT 'Nodule 8k 
90P0K.E *4300+C,85 
100 RESTORE 1000 

110 FOR I=0TD 199î READ B:P0KE I+&38C5+C.B 
120 NEXT 1 
130 RESTORE 1200 

140 FOR I=0T0 30: READ B:P0KE I+*4054+C,B 
150 NEXT 1 

160 P0KE &3856+C, 1,*F0, *80,2, *F0, *81,3, &F0, *82,0 
170 POKE îi79D 1 , 36+C/512 
180 IF AIO'N’END 
190 P0XE *4005, Ml: POKE M0E3.M1 
200 RESTORE 1400 

210 FOR I =OTO 30: READ B:PQKE I+*4854+C,B 
220 NEXT I : END 

1000 DATA *C2 , *2C , *6 , *CC ,465 , *FD , *88 , *8E , *E , *G6 , *ÜE , *3D 
1010 DATA *D0, 0, *3A, *BE, *39, *10, *FD, *A8, *G2, *2G, *26, &DE 
1020 DATA *30, *1)0, 0, *2D, *64, *8E, *39, *10, *FD, *A, *FD,*98 
1030 DATA *FD/«S>ÇC,*67,*56,*66,*65,*51,*A4,*86,*99,6 
| V T040* D AT A *24 ,67*99 , *A , *25 , *1 E , *FD , & 1 8 , *CA , *67 , *FD , * 1 A 
1050 DATA *E2, *C6,K2, *D, 6, *GC, *67, *FD, *6A, &9E, *27 , *C6 
1060 DATA *E2,*E0,^|*CC,fc65,5,*B7,*FF,.*8B,6;,5,*A6 — 

1070 DATA *81,*G,*3B,3,0*6A,&9A I *44,*47,*26,*81,2 
1080 DATA *9E,*A,*44,*44V5,*DD,*F9,*FD,*CA,*9E,*1E,*DE 
1090 DATA *37 , *D0, 0, *34, *AE, *78, *73, *48, *7B, *4A, *61 , *47 - 
1100 DATA *4 1 , *44 , *4E , *B0, *99 , 7, *8E , *EC , *AE , *BE , *EC , *EA<" 

1110 DATA *BE,*E4,*2C,*B7,*T8,*8B,il8,*B7,i20,*9B,*S^*F7^ 

1120 DATA *C,*8B,*A,*A5,*78,*73,*2A,*B5,*FF,*DF,*99,3 ~ 

1130 DATA *8B,7,*A5,*7B,*7A,*99,*30,*E2,*E0,0,0?) -r* 

1140 DATA 0, *FD, *98, *CC, *65, *58, 0, *5A, 0, *B5, *FF , 7 — 

1150 DATA *89,3,*FD,*lA,*E2,*B5,4A,*F9,*FD,*DA,*94i*41 — 

1160 DATA *14,*41 ,5,*DD,*FD,*CA,*9E,*17 t 
1200 DATA . *D6, **4 , *45, MC, *45, *54, *4-5, *F0, *80, *38, IC-5, *D4, *44, *49, *53, *50j *F0, *81 
1210 DATA *39, *30, *f5, *52, *45, ME, *55, *4D, *F4, *82, *39, *6E IV 5 ^ 

1220 DATA *D0 A 'R £ w u H 
| 1400 DATA *D6, *44, *45, MC, *45, *54, *45, *F0, *8J>, *40, *C5, *D4, *44, *49, *53, *50, *E0, * 
1410 DATA *4 1 , *30, *D5, *52, *45, *4E, *55, MD, *F0, *82, *41, *6E, *00 j ^ 


SBR C2,2C,26 
SBR DE, 30 
SBR D0,0,2D 
INC HL 
CALL 3910 
POP a 
P4JSH Y 
LD Y,ü 
SRC CC,67 
DEC Y 
DEC X 
ILD A,(X) 

ILD (Y), A 
LD A, Yh 
CP A, üh 
JR NZ, -6 
LD A, XI 
CP A, ai 
JR NZ,-A 
LD A,(X) 
LD(Y),A 
LDÜ,Y 
SBR CA, 67 
POP Y 

SBR EZ 
SBR C6 
SBR C2,0D,06 


CC67 

SBR CC67 

FD 6A 

LDX,Ü 

9E 27 

JR-27 

C6 

SBR C6 

N E2 

SBR E2 

EO 

SBR EO 

-, 38 

NOP un octet de 1 

CC 65 

SBRCC,65 

05 

LD A, (G) 

B7FF 

CPFF 

8B06 

JR Z, + 6 

05 

LD A, (ü) 

A6 

CP Xh 

81 OC 

JRN, +C 

8B03 

JR Z, +3 

F06A 

LD X,ü 

9A 

RET 

44 

INC ü 

47 

DLD À,(ü) 

26 

CP XI 

8102 

JR N + 2 

9E OA 

JR-A 

44 

INCÜ 

44 

INCÜ 

05 

LD A, (ü) 

DD 

INCA 

QDD 

INCA 

\? F9 

RCF 

. FDCA 

ADD U, A 

9E 1E 

JR-1E 


Programme de copie de la zone programme se trouvant 
après la ligne « P » au niveau de la ligne « n ». 

On spécifie à la fin du programme la valeur FF et on 
ajoute les pointeurs BASIC à notre nouveau programme. 
Fin retour tous BASIC 

Lorsque la 2 e ligne n’est pas spécifiée, on charge 
l’adresse de fin de programme BASIC. 

Retour ou erreur. 

Sous programme : recherche de l’adresse d’une ligne 
BASIC chargement du pointeur. 

Test si on se trouve à la fin du programme BASIC. 

Comparaison sur l’octet de poids fort de la ligne 
courante et de la ligne recherchée. 

Fin de sous programme : retour. 

Comparaison sur l’octet de poids faible de la ligne 
courante et de la ligne recherchée (saut de -A si l’adresse 
recherchée est trouvée). Si cette adresse n’est pas 
trouvée on augmente notre pointeur de la longueur 
de la ligne BASIC courante pour se placer sur le numéro 
de la ligne suivante, on boucle le programme. 

Tout mot clef peut être normalement abrégé. Un 
programme de recherche en ROM utilisant la table 
d’adresses (du premier mot clef de chacune des 26 lettres 
de l’alphabet. Cette table est située en &C020) permet 
l’interprétation de ce mot clef. 

Cependant on ne peut utiliser cette routine pour les 
nouveaux mots clefs. Ainsi pour éviter de POKER dans 
le programme BASIC, le code de l’instruction que l’on 
utilise (à chaque fois qu’on en a besoin), le programme à 
joint POKE ces codes directement en mémoire réserve. 
En réserve I, Fl vous donnera DELETE PE DISP et F3 
RENOM. 

Avant d’entrer le programme : faire NEW & 4875 si vous 
avez un module 8K sinon NEW & 5075. Lorsque vous 
aurez effacé le programme POKE 879 Dl, 36 (8 K) & 
79D1, 40 (sans les 8 K). 

Réactivera les nouvelles fonctions. 

Le programme vous demande la configuration de votre 
machine : vous devrez répondre par O (oui) ou N (non) à 
la question « module 8 ko ? ». 

Le programme effectuera le décalage des sous-programmes 
et de l’adresse d’entrée des fonctions dans la table. 


Et maintenant, bon courage, et bon codage. 


Sophie CHARCMÜT 


PC 1500 

■QN CLAVIER KATAKANA 


Redéfinition des caractères 
de l’imprimerie 

La dernière fois, nous avons vu comment 
définir un nouveau clavier et générer de 
nouveaux caractères pour la PC 1500. 
Aujourd’hui, nous allons voir la même 
chose mais pour l’imprimante. Nous vous 
donnerons un jeu de nouveaux caractères. 
Pour ceux qui n’auront pas envie de s’en 
recréer et pour les plus paresseux, il leur 
suffira de nous envoyer une cassette pour 
que l’on vous renvoie ce « programme ». 
En deux mots, revoyons comment l’on défi- 
nissait une table : 

- définition d’une table clavier (en 
((nnOO) - 80) 

- définition d’une table caractères en (nnOO) 
jusqu’en nn + 27F 

Pour signifier la table clavier, il fallait faire : 
POKE &785D&80 
et pour l’activer, il fallait allumer : 

POKE &764,4 OR PEEK &764E 
Désormais, lorsque vous aurez créé votre 
table imprimante, il faudra pour la signifier 
faire : 

POKE &79D1,&FF 

(ceci indiquera à la machine l’existence de 
toutes les tables) et pour l’activer, il faudra 
faire comme auparavant. 

Outre cette indication qui se trouve dans 
la mémoire système, il faudra indiquer 
l’existence de la table imprimante dans la 
table de caractères en (nn + 200). 

Avant de voir comment on créera un carac 
tère, voyons comment se structurent les 


tables en mémoire. 

Nous aurons ici deux tables. 

La première indiquera l’adresse en 
mémoire de chacun des caractères à redé- 
finir et la seconde correspondra aux dépla- 
cements du stylo. 

Le dessin d’un caractère de l’imprimante 
est variable suivant la complexité de celui- 
ci. Il existe deux types de déplacement du 
stylo : 

- les déplacements simples (ceux que l’on 
va voir) 

- les déplacements combinés qui lient 2 
déplacements de stylo avec un angle. 

Les déplacements simples se composent 
ainsi : 

un octet = un déplacement en sachant 
que : 

7 6 5 4 3 2 1 0 

Les bits 0 à 2 indiquent la longueur du tracé 
à faire. Il s’agit d’une indication qui peut 
aller de 1 à 7 (convertir ici en binaire). 
Les bits 3 à 5 indiquent une direction 
(valeur ci-dessous convertie en binaire). 
Le bit 6 indique si le stylo doit être levé (0) 
ou baissé. 

Le bit 7 indique si le tracé est fini (1) ou non 

( 0 ). 

La fin d’un caractère doit toujours être dans 
un carré 4 x 6 à partir de la position 
d’origine. 

Passons à la création : 

Tout d’abord, on entre sa table de caractè- 
res écran, puis on sacrifie un caractère car 
en (nn + 200) ou on indique l’adresse de 
la tablé d’adresse. 


Exemple d’une table allant de 3A00 à 
3C7F : 

On changera les 2 octets 3C00 et 3C01 
pour y mettre l’adresse de la table 
d’adresse, par exemple 3C80 ; cela signi- 
fie alors que de 3C80 à 3DF7 on aura la 
table d’adresse, donc vous pourrez stocker 
à partir de 3D80 les caractères de 
l’imprimante. 

I.S. 

Ce programme ci-joint vous permet de géné- 
rer facilement ces tables. Modifier en ligne 
1000 la valeur représentant le début des 
tables. 

1000 'N'REH “ redéfinition des tables de 1 irritante* 

1010 TA=ît3C80*.»AlT 0 

1020 IHPUT "Code ASCI U "îCA: CA=INT ABS CA 

1030 INPUT -Adresse i: “;AD 

1040 IF CA<lc800R CA>&FFNAIT ïPRINT 'Fin ...':END 

1050 B=INT ( AD/256) : C=AD-Bt256: AC=TA+ (CA-fcBO) 12: POKE AC,B,C 

1060 C=0:PRINT CHR* CA;’ FIN (Oui /Non > " : D=1 : GOSUB 1170 

1070 PR INT CHR* CA;' STYLO (Leve/Baisse)":D=2:60SUB 1170 

10B0 PRINT CHR$ CA;" DIRECTION ( 1-9) " *• D=3ï BOSUB 1170 

1090 PRINT CHR$ CA;’ LONGUEUR (1-7)':D=4:G0SUB 1170 

1100 POKE AD,C: IF ICAND 128)=0LET AD=AD+l:60TQ 1060 

1110 CS1ZE 4: LPRINT CHR4 CA; 

1120 PRINT "Bon , Mauvais , Fin' 

1130 IF INKEYI ="B'LET AD=AD+ 1 î CA=C A+ 1 : GOTO 1040 
1140 IF INKEY4 ='H"BEEP 2ïAD=PEEK ACI256+PEEK (AC+1UG0T0 1060 
1150 IF INKEY4 ='F'NAIT :PRINT 'Sui vant en ■ ; AD+l : END 
1160 GOTO 1130 

1170 D$=INKEY$ : IF D4="'THEN 1170 
1180 ON DGQT0 1190,1220,1250,1270 
1190 IF ID*='0’0R D$='N“>=0THEN 1170 
1200 IF D$='0'LET C=128 
1210 BEEP 1 î RETURN 

1220 IF (D$="B'0R D$='L')=0THEN 1170 
1230 IF D$='B'LET C=C+64 
1240 BEEP l: RETURN 

1250 IF DK'l'OR D$)“9’0R D$='5’THEN 1170 

1260 E=VAL D$:C=C+(IE(4)l(4+E)+iE>6)>(10-E)+(E=4)M)IB:BEEP lî RETURN 
1270 IF DK'l'DR Di)'7'THEN 1170 
1280 C=C+VAL D$î BEEP l: RETURN 


Pour les paresseux : valeurs & pokes 


396C : 68 7 8 6A' 5D 

3971 : 00 61 B5 30 

3976: B5 00 2E 6A 

397B '• 68 76 6B 04 

3980: 5C 4E 59 01 

3985: 38 35 32 09 

398A : 57 21 53 (39 
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10 CLEAR : WA1T 0:A=STATUS 2:B=STATUS 3:E=INT ( (B-2-A>/5i:B=A+2+5IE 
20 PRINT “AU HAXIHUITiEï "DONNES" 

30 DATA lc8E,fr08ittBE,fcBD>&AD,lcB6i&A9,&BE I &AD y UB f &é4tfc64,«cSeifc7B l lcSA f k&8,lEâ5ilcBD f SEFF 

31 DATA 45l,45E,47l,499,408,4FD,4B8,4BE,4EC,4FA,4FD,40A,444,444,4B5,43F,441,4B5,40 

32 DATA 46A,403,441,48B,403,44E,404,491,40E,44C,460',499,412,448,4FF,446,44C,400,499 

33 DATA 405, 49A 

35 FOR I=OTQ 58:READ H:POKE 47050+1 , W: NEXT I 

36 PRINT 

40 CALL 47050, A 
50 A=STATU5 2:B=A+2:BEEP 1 

100 “AF'NAIT OîUSING "tit“:ON ERROR BOTO *H":GOTO 130 
110 “H'IF IHKEY* = B "THEN 110 
120 BOSUB INKEY4 

130 F'RÎNT " ";CHR$ PEEK D;': (“|PEEK (D+l ) j “> ; ("jPEEK ID+2>;’)? ( " ? PEEK (D+3) PEEK (D+4) 
140 CURSOR Ci SPRINT "7F3E1C08" 

150 BOTO “H" 

200 “ " : D=D+54 (DIB) :RETURN 
210 "*D=D-5*<D>A+2):RETURN 
220 "*:C=C-6* (C>0) +(C=5> :RETURN 
230 * “C=C+6I IC<23)-(C=0) : RETURN 
240 " “C=0: RETURN 
250 ,, D=A+2:C=0:RETURN 

260 "N-CURSOR 2l:PRINT “N=“;STR$ UD-A-2) /5+1 ) 5 " "ÜF INKEY4 =""RETURN 

270 GOTO 260 

300 11 ':T=INT !C/5)+l 

310 ON TGOSUB ’AVBVBVBVC":CLS : RETURN 
320 "A” CURSOR C: PRINT " ■: CURSOR C: INPUT C* 

330 IF C$<>"L'AND C$<>"N"AND C$<>"F"THEN 320 

335 IF C*=*F"LET V=D+4 

340 POKE D, ABC Ci: RETURN 

350 "B'CURSQR SPRINT * “:CURSOR C: INPUT U 

360 IF U<OOR U799THEN 350 

370 POKE D+T-l,ü:RETURN 


3B0 “C": CURSOR SPRINT " ■: CURSOR C: INPUT U 
390 U=U-41INT (U/4) : POKE DM,U:RETURN 
400 "E'PAUSE "ENREGISTREMENT": BEEP 1 
410 W=INT (V/256) :POKE A,N,V-256IN 
420 NAIT : PRINT “PRET ? : TAPEZ ENTER" 

430 CSAVE N"3D dessin"; A, V 
440 NAIT 0: RETURN 

500 "R "PAUSE "INTRODUCTION PAR CASSETTE 0 : BEEP 1 
510 NAIT : PRINT "PRET ?:TAPEZ ENTER" 

520 CL OAD H”3D dessin*; A 
530 V=256IPEEK A+PEEK (A+l) 

540 NAIT 0: RETURN 

550 "F": INPUT "PAS DE SAUVEGARDE"; N: RETURN 

560 BEEP 1 : END 

600 "P"Z=A+2:CSIZE 1 

610 IF PEEK Z=70THEN RETURN 

620 LPRINT CHRi PEEK Z;": X=";PEEK iZ+l);" ; Y=" ; PEEK (Z+2J5* ; Z=';PEEK IZ+3>!" col.="5PEEK (2+4) 
630 Z=Z+5: GOTO 610 

800 "6"CLS : 1NPUT "Al =°;L: INPUT ”A2=";H: INPUT "A3=";N 
B05 N=l: INPUT "ECHELLE: ";N: IF N>4THEN 805 

810 F=-COS LISIN N-COS NIS1N L4C0S N:G=-SIN LIS IN N+COS HtCOS LOS N:H=SIN H*COS N 
315 I=SIN H1SIN L:J=-SIN HICQS L:K=COS H 

820 CSIZE 1: US INB : LPRINT H A1= ! ’;L:LPRINT ”A2=";H:LPRINT "A3=";N:LPRINT "Echelle: “;W 
325 GRAPH :GLCURSOR (130, -100) : SORGN 
830 Z=A+2 

840 S=PEEK Z: IF S=70GLCURS0R (0,-140>:TEXT : COLOR O.'USING RETURN 
350 Q=PEEK ( Z+l)-49:P=PEEK f Z+2) -49: Q=PEEK ( Z+3 > -49: R=PEEK (Z+4) 

860 X=N* (FIO+GtP+HIQ) : Y=N* t HO+J IP+KIQ) 

870 IF 3=76LINE - ( X , Y i , , R 
880 IF S=78GLCURS0R IX, Y) 

390 Z=Z+5: GOTO B40 

900 NAIT 3: FOR I=147T0 OSTEP -3:GCURS0R I+UBPRINT “ 402C 2E 1 B2F 1 B2E2C 4000 " ; : BEEP 1 , RND 255, 20: GCURSOR I 
910 GPRINT " 6C2E 1 B07 1 E2E6C000000" ; : NEXT I : CL3 :GOTO 900 





















PC 1500 


BASiaUOIS 


Je vous propose ici de donner un caractère 
FRANCOPHONE à votre PC 1500. 

Une fois les différentes parties du pro- 
gramme « SUPER BASIQüOIS » exécutées, 
votre machine aura un clavier AZERTY et 
un BASIC FRANÇAIS. 

Pour cela, faites tout d’abord NEW &4205 
avec le CE- 155, sinon faites NEW &4604. 
Et maintenant, voyons un peu le clavier. 

LE CLAVIER 

Le programme « CLAVIER AZERTY » uti- 
lise la réassignation du clavier parue dans 
le Bulletin n° 3 de SHARP. Il est conçu pour 
un 8K, les possesseurs de modules 4K 
devront remplacer aux lignes 120 et 140, 
&3E80 par &4280 et &3F00 par &4300. 
Après, sans exécution, vous aurez un cla- 
vier AZERTY, accentué en faisant POKE 
&785D; &80, &3F (&43 pour 4K), et POKE 
&764E, &COR PEEK &764E. Pour avoir 
accès aux minuscules, utilisez SHIFT et non 
plus SMALL, qui vous ferait revenir à l’an- 
cien clavier. Les caractères accentués, s’ob- 
tiennent à partir du pavé numérique, par 
SHIFT. 

On a : 0 — *■ ’ 3 i 6 — ~ ë 9 — » ê 

1 — * ç 4 — à 7 — é 

1 — u 5 — oe 8 — è 

La différence entre le QWERTY et 
l’AZERTY se situe au niveau des touches 
A,Z,Q,W. Vous pourrez, soit coller de peti- 
tes étiquettes sur ou au-dessus des touches 
qui ne correspondent plus ou alors démon- 
ter la machine et intervertir les touches en 
question. 

Pour la seconde position, voici la marche 
à suivre 

- Retournez votre machine et enlevez les 
piles 

- Dévissez les 8 vis du capot : la machine 
s’ouvre en deux 

- Dévissez les 7 vis qui tiennent le circuit 
intégré, côté clavier 

- Enlevez délicatement ce circuit et posez- 
le sur le capot précédemment retiré ; 

- Vous avez alors accès aux touches du cla- 
vier, que vous modifiez.de manière à obte- 
nir un AZERTY. 


LE BASIQUOIS 


On l’obtient en utilisant les 3 autres pro- 
grammes. Pour les possesseurs de 4K, 
modifiez les lignés suivantes : 

790 &40,&01 devient &44, &01 

&40,&10 devient &44,& 10 

A = &4054 devient A « &4454 


800 

810 

850 

1000 

1000 

1010 

1030 

2500 

2600 


64000 

64001 
&B5,&3F 
&3F,&3D 
&4010 
&3DE0 
&3F00 


devient &4400 
devient &4401 
devient &B5,&43 
devient &43,&41 
devient &4410 
devient &41E0 
devient &4300 


(Jne fois les 3 programmes entrés et exé- 
cutés, on a accès au BASIQUOIS en faisant 


POKE &79D1,&20 (&22 avec 4K). La 
découverte de la possibilité de créer des 
tables de mots clés n’étant pas de moi, je 
ne donnerai ici pas d’explication sur le pro- 
gramme « MOTS CLES ». Mais voyons un 
12 peu les instructions de notre BASIQUOIS. 


Instructions inchangées : 

ABS ATN SG N GRAD EXP DIM 

ACS COS SIN PAUSE IMT REM 

ASC DEG TAN POINT STOP CHR$ 

ASN DMS VAL RADIAN CONT 

Car ce sont des abréviations de mots 
FRANÇAIS. 


Fonctions traduites 


INKEY$ = 

CLAVlER$ 

STATUS 

= PARTITION 

LEFT$ = 

GAÜCHE$ 

STR$ 

= CHAINE$ 

LEN 

LONG 

TIME 

= HEURE 

MID$ 

M1LIEU$ 

BEEP 

= SON 

MOT 

NOM 

CLEAR 

= EF. VAR 

RIGHT$ = 

DR0ITE$ 

CLS 

- EF. ECRAN 

RND 

ALEA 

CURS0R 

= CURSEUR 

SQR 

RAC 

DEGREE 

= DEGRE 

LOCK = 

BLOQUE 

PRINT 

= ECRIS 

NEXT 

ENCORE 

RAND0M 

= DEFALEA 

ON 

SUR 

READ 

= LIS 

ÜS1NG = 

FORMAT 

WAIT 

= ATTEND 

NEW 

EF ppo 

RUN 

= EXECUTE 


END 

FIN 



FOR 

POUR 



GCURS0R = 

GCURSEUR 



G0SUB 

VATEN 



GPRINT 

GECRIS 



GOTO 

VAEN 



IF 

SI 



LET 

QUE 



RESTAURE = 

RESTAURE 


RETURN = 

RETOUR 



UNL0CK « 

DEBLOQUE 


LIST 

LISTE 


Fonctions non traduites 


AND 

DATA 

THEN 

ERROR 

OR 

TO 

TRON 

ARUN 

AREAD 

STEP 

TROFF 


Ceci du 

fait qu’une 1 

fois traduites, elles 

s’avéreraient non exécutables. 


Nous! avons aussi 

deux 

nouvelles 


fonctions : 

AZERTY : qui donne accès au clavier 
AZERTY accentué. 

PAGE : qui permét de passer d’une zone 
réserve à une autre. 


ACCES AUX NOUVELLES 
FONCTIONS 

La machine ne reconnaît pas les nouveaux 
mots clés, quand ils sont directement tapés 
au clavier ; elle ne connaît que leurs codes : 
par exemple : 240,82 pour « SON ». Pour 
pouvoir les utiliser, il faut assigner les mots 
clés en mode DEF, en utilisant des codes 
identiques à ceux qui sont préassignés, ou 
encore en mode RESERVE. Le programme 
assigne 7 mots clés en mode DEF. Il s’agit 
de : 

Q DEMANDE 

W ECRIS 

E FORMAT 

ü EXECUTE 

I AZERTY 

O — PAGE 

P — LISTE 

Pour les 34 autres mots clés, on utilise le 
mode RESERVE, et comme celui-ci n’ad- 
met que 18 assignations à la fois, on uti- 
lise deux pages notées 1 et 2. On passe de 


1 à 2 et de 2 à 1 par la fonction PAGE 
(DEF« 0 »). 

Les 2 pages contiennent les mots clés 
suivants : 

PAGE 1 


I CLAVIER$ 

GAUCHE$ 

DR0ITE$ 

MILIEU $ 

CHAINE$ 

LONG 

II EF.ECRAN 

ATTEND 

CURSEUR 

GCURSEUR 

GECRIS 

SON 

III VAEN 

VATEN 

RETOUR 

FIN 

SI 

QUE 

PAGE 2 



I BLOQUE 

DEBLOQUE 

DEFALE 

ALEA 

HEURE 

DEGRE 

II POUR 

ENCORE 

LIS 

RESTAURE 

SUR 

EF.VAR 

III NON 

RAC 

PARTITION 


• Bien entendu, tous les mots clés « anglais » 
sont utilisables. 


STRÜCTÜRE DE LA MEV 
AVEC 8K 


&3DE0 

&3E7F 

ASSIGNATIONS, PAGE 1 

&3E80 

&3EFF 

TABLE CLAVIER 

&3F00 

&3F91 

ASSIGNATIONS, PAGE 2 

&3F92 

&3F9F 

LIBRE 

&3FA0 

&SFD2 

TABLE CARACTERES 

&3FD3 

&3FFF 

LIBRE 

&4000 

&402B 

ROUTINES, PAGE ET AZERTY 

&402C 

&4053 

LIBRE 

64054 

£4204 

MOTS CLES 


(pour le 4K, ajouter 400). 

NOTA : Certains mots clés du BASIQUOIS 
utilisent les codes des instructions du 
CE- 150, il s’agit de « LF », « MERGE », 
« CLOAD », « CSAVE », qui ne seront plus 
utilisables sans BASIQUOIS. 

Pour sortir du BASIQUOIS, il suffit d’étein- 
dre puis de rallumer la machine. 

Après l’extinction de la machine, il faut, 
quand on la rallume, redéfinir l’existence 
du BASIQUOIS, par POKE &79D1,&20 
(&22 pour un 4K) et celle du clavier 
AZERTY (DEF « I »). 

Et voilà, votre PC 1500 sera le premier poc- 
ket au monde à avoir son BASIC 
FRANÇAIS. 

Pascal ABRIVARD 



1 reh mmmmtmmmmm 

2 REH tt PASCAL t* ABRIVARD tt 

5 reh mmmmtmmmmm 

5 REH MAZERTYM 

10 DATA 60B,64E,659,601,648,63B,635,632,609,658,65A,611,653,60F,62D,62E 
20 DATA 630, MD, 655, 615, MA, 137, 634, 131 , 6GD, 628, 649,616, MB, MF, MC, 629 
30 DATA 619, M3, 645, 612, 644, 62F, 62A, 62B, 620, 656, 652, 613,646,650, 608, 63D 
40 DATA 602, 657, 641, 61B, 651, 618, 61F, 60C,60A, 642, 654, 614, 647, 639, 636, 633 
50 DATA 65B, 66E, 679, 601 , 66B, 6AD, 6A1 , 6A2, 609, 67B, 67A, 621 , 673, 60F, 62C, 62E 
60 DATA 6A3, 660,675, 625, 66A,6A4,6A5,6A6, 600,630,669, 626, 66B, 66F, 66C,63E 
70 DATA 619, 663, 665, 622, 664, 63F, 63A,63B,65E, 676, 672, 623, 666, 670,610,640 
80 DATA 602, 677, 661 , 61B, 671 , 61A, 61D, 61C, 65D, 662,674, 624, 667, 6A7, 6AB, 6A9 
100 DATA 56,85,86,84,24,56,68,60,84,88,60,65,66,32,124,0,5,3,0,0,56,84,86,85,24 
110 DATA 56,69,70,60,64,64,56,68,68,40,56,86,85,86,24,56,85,84,85,24,0,1,124,1,0 
120 RESTORE :F0R I=0TQ 127:READ VsPOKE 63EB0+I,V:HEXT I 
130 FOR I=1TG 50 

140 READ VsPOKE 63F00+159+I,V:NEî(T I : END 
390 "B"REH MBASICOIS 

399 "B"REH BASIQUQIS 

400 DATA 6F8, "CLAVIER! 8 , 65C, 6D9, 6AA 
410 DATA 6D7, B GAUCHEi B ,67A,6D9,6F3 
420 DATA 6C4, “LONG", 664, 6D9,6DD 
430 DATA 687, B HILIEU$ B ,67B,6D9,6F3 
440 DATA 6D3, "NON* , 66B, 6D9, 69E 
450 DATA 6A7, B DR0ITE$ B ,672,6D9,6F3 
460 DATA 6C4, “ALEA" , &7C, 6F5, 6DD 
470 DATA 6A3, B RAC B ,66B,6F0,6E9 
480 DATA 6A9, “PARTITION 8 , 667, MA, M4 
490 DATA 6A7,"CHAINE4%661,6D9 J 6CE 
500 DATA 6A5, "HEURE", 65B,6DE, 682 
510 DATA 6C3,“SQN",682,6E5,6Ci 
520 DATA 6D3, "EF. ECRAN" , 688, 6E8, 665 
530 DATA 6C7, "CURSEUR", 684, 6E8, 646 
540 DATA 6C6,"EF.VAR",637,6C8,65F 
550 DATA 6C5, “DEBRE", 68C,6C6, 697 
560 DATA 6C3, "FIN",68E,6C5,60D 
570 DATA 6A4, "POUR", 6A5,6C7, 611 
580 DATA 6B8, "SCURSEUR" , 693, 5E8, 63E 
590 DATA 6C5, "VATEN",694,6C6,64E 
600 DATA 6C4, "VAEN",692,6C5,615 
610 DATA 6C6, "BECRIS",69F,6E7,6AC 
620 DATA 6C2,"SI",696,6C5,6B4 
630 DATA 6A7,"DEHANDE",691,6C8,6FA 
640 DATA 6C3, “QUE" , 698, 6C4, 658 
650 DATA 6A6, "BLOQUE", 6B5,6C9, 668 
660 DATA 6D6, "ENCORE", 69A,6C7, 605 
670 DATA 6A3, "SUR",69C,6C5,6E0 
680 DATA 6A5, "ECRIS", 697, 6E4,6EB 
690 DATA 6C7, "DEFALEA",6A8,6F6,641 


700 DATA 6C3, "LIS", 6A6,6C7,6BB 
710 DATA 6A8, "RESTAURE", 6A7,6C7,6A2 
720 DATA 6A6, "RETOUR", 699, 6C6,6AC , 

730 DATA 6A8, "DEBLOQUE", 6B6,6C9,66A 
740 DATA 6D6, "FORHAT" , 635, 6C6, 67C 
750 DATA 6C6," ATTEND", 6B3,6E8,66A 
760 DATA 6C5, "LISTE", 690, 6C9,66E 
770 DATA 686, "EF.PR0",69B,6C8,60A 
780 DATA 697, "EXECUTE", 695, 6C8,6B4 
790 DATA 6C6,"AZERTY",689,640,601 
800 DATA 6C4, "PAGE", 63F, 640, 610 
810 RESTORE 400:A=64054 

820 FOR I=1T0 41! READ VîPOKE A,V:READ A$:L=LEN A4 
830 FOR J=1TQ LïPOKE A+J,ASC HID$ î A$, J, 1 ) sNEXT J 
840 A=fi+L+1 ï READ X,Y,ZsPOKE A,6F0,X,Y,Z 
850 A=A+4 îNEXT ÜPOKE A+1,6C0:PQKE 64000, 35:END 

999 "S"REH ROUTINES kfoD 

1000 POKE 64001, 6B5, 680, 6AE, 678, 65D,6B5, 63F, 6AE, 678, 65E,6EB, 676, 64E,60C,6E2 
1010 DATA 6A5, 638, 621 , 6B7, 631 , 639, 606, 648, 63F, 64A, 600, 63E, 604, 648, 63D 

1020 DATA 64 A, 6E0, 668,638, 66A, 607,645,661, 66E, 699, 699, 606, 6E2 
1030 RESTORE iÔlOïFQR I=OTQ 27: READ VîPOKE 64010+1, VsNEXT I : END 

1999 "H"REH HODE RESERVE 

2000 DATA "CLA GAU DRO HIL CHA LON 1" 

2001 DATA "EFE ATT CUR GCU BEC SON 1" 

2002 DATA "VAE VAT RET FIN SI QUE I" 

2010 DATA 601,6FO,65C,602,6FO,67A,603,6F0,672,604,6F0,67B,6O5,6F0,661,6O6,6FO,664 
2020 DATA 611 , 6FÔ, 638, 612, 6F0, 6B3, 613, 6F0, 634, 614, 6F0, It93, 615, 6F0, 69F, 616, 6F0, 682 
2030 DATA 6O9,6FO,692,6OA,6FO,694,6OB,6FO,699,60C,6FO,68E,6OD,6FO,696,6OE,6FO,698 

2040 DATA "BLO DEB DEF ALE HEU DEG 2" 

2041 DATA "POU ENC LIS RES SUR EFV 2" 

2042 DATA "NON RAC PAR EFP 2" 

2050 DATA 601,6FO,6B5,602,6FD,6B6,603,6FO,6A8,604,6FO,67C,605,6FO,65B,606,6FO,68C 
2060 DATA 6ll,6F0,6A5,612,6F0,69A,613,6F0,6A6,614,6F0,6A7,615,6F0,69C,616,6F0,687 
2070 DATA 609, 6F0, 66D, 60A, 6F0,66Er,60B,6F0, 667, 60C,6F0, 698,0,0,0, 0,0,0 

2499 CLEAR :DIH A$(0)*26 

2500 RESTORE 2000:A=63DE0 
2510 FOR I=1T0 3 

2520 READ A$(0>:F0R J=ÎT0 26:RQKE A+J,ASC HID$ (A$(0), J,1):NEXT 3 
2530 A=A+26îNEXT I 
2540 FOR I=ITQ 3 

2550 FOR J=!TO 18: READ V:POKE A+J,V:NEXT J 
2560 A=A+18: NEXT I : POKE A+1,0 
2600 A =6 3F 00 
2610 FOR I=1TQ 3 

2620 READ A$iO):FOR J=1T0 26:P0KE A+3,ASC HID$ (A$iO),J,l):NEXT J 
2630 A=A+26:NEXT I 
2640 FOR I=1T0 3 

2650 FOR >1T0 18: READ VîPOKE A+J,V:NEXT J 
2660 A=A+18:NEXT ÜPOKE A+1,0 


PC 1500 


EXO 7 


- Vous êtes aux commandes d’un avion 
espion. 

• Votre mission est de survoler la zone enne- 
mie. (le gros carré au-dessus du dessin), 
depuis votre base de départ (petit rectan- 
gle en bas). 

- Pour cela vous pouvez diriger votre avion 
(dont le trajet est représenté par les « o » 
avec les touches numériques. 

t ^ 

789 
—406 — 

ün missile ennemi (*), dont vous program- 
mez tes coordonnées du point de départ, 
vous prend immédiatement en chasse. 
Vous pouvez programmer certains 
paramètres. 

- Puissance missile : distance entre l’avion 
et 1e missilé considéré comme détruit. 

- Vitesse avion : Vitesse de déplacement 
de votre avion. 

Mort en héros : - Dans certains cas (puis- 
sance missile) = 5 ; vitesse avion - 2 par 
ex). Le missile se déplace plus vite que vous 
en ligne droite. 

Toutefois, il y a un temps de réponse élevé, 
c’est pourquoi il est souvent nécessaire de 
changer de direction (1e missile laisse alors 
passer son tour). 

v Des que vous survolez la base ennemie, 
un beep se fait entendre, et 1e RETOUR A 
LA BASE 1e plus rapide possible est indis- 
pensable au succès de votre mission ! 

François VADOT 
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puissance: MISSILE: 

5 

UITESSE AUI ON: 10 

PROGRAMME « EX07 » 
Contenu des variables : 

W : Puissance du missile. 

V : Vitesse de l’avion. 

T : Nombre d’unités de temps de vol. 

S : Vérification de la position de l’avion 
(détermine si l’avion a survolé la base enne- 
mie) (nul après le survol). 
y . 

Y ’ coordonnées du missile. 


XI • 

Y| coordonnées de l’avion. 

A : Direction du déplacement de l’avion. 
C : Vérification du changement de direction 
de l’avion (chaque changement de direction 
autorise l’avion à «jouer» deux fois de suite, 
pour tenir compte de l’inertie du missile). 
Explication des routines : 

Lignes 10 à 120 : initialisation. 

Lignes 140 à 160 : calcul des coordonnées 
du missile. 

Lignes 165 : test sur la destruction de 
l’avion par le missile. 


Lignes 170 à 199 : commandes du dépla- 
cement de l’avion. 

Lignes 200 : vérifie si les coordonnées de 
l’avion correspondent aux coordonnées de 
la base de retour et si la base ennemie a 
été survolée. 

Ligne 202 : vérifie le survol de la base 
ennemie. 

Ligne 205 : dessine la position de l’avion. 
Ligne 300 : fin du programme avec destruc- 
tion de l’avion. 

Ligne 350 : fin du programme : vol réussi. 


10: REM ** EX07 ** 
15: INPUT "PU1SSAN 
CE M1SSILEU/5 
): ";W:W=9-W 
16: INPUT "UITESSE 
AUI ON (1/10): 

" ; U: U=U+2 
17: TEXT : LF 5: T-=0 
20: GRAPH : 

GLCURS0R (0,0) 

: S0RGN : S= 1 
25: ON ERR0R GOTO 
170 

30: LINE (100,220) 
-(140, 260), 0, 3 
, B 

40: L I NE (0, 0)-(20 
, —30), 0, 2, B 
50: XI =0: Yl=- 10 
100: INPUT "COORD. D 
EPART MISSILE: 

— M . ^ 

110: INPUT " Y=" j V : 
WAIT 0: PR J NT ” 
BONNE CHANCE. . 

. " : C0L0R 0: 
G0SUB 120: GOTO 
140 

120: GLCURSOR (X, Y) 
: CSI 2E 1: 
LPRINT 
RETURN 

1 40: D=ABS (X-Xl)/7 
: 1F X<X1LET X= 
X+D+4 : GOTO 150 
145: X=X-D-4 
150: E=ABS (Y-Yl)/7 
: IF YCY1LET Y= 
Y+E+4: GOTO 160 
155: Y=Y-E-4 
160:GOSUB 120 
165: IF (ABS (Xl-X) 
<U|)AND (ABS (Y 
1-YXW)BEEP 5, 
150, 150: 
GLCURSOR (X-8, 
Y- 8)-: CSI2E 2: 
LPRINT ,, ***‘': 
GOTO 300 

170: A#*INKEY# MF 
A*-=" " THEN 140 
175: A=UAL Ai 
180: GOTO 190+A 


191 : X1=X1-U: Yl-Yl- 
U: GOTO 200 

192: Y1=Y1-U: GOTO 2 
00 

193: X1=X1+U: Y1=Y1- 
U: GOTO 200 

194: XI =X1 -U: GOTO 2 
00 

196: X1=X1+U: GOTO 2 
00 

197: X1*X1-U: Y1=Y1+ 
U : GOTO 200 

198s Y1*Y1+U: GOTO 2 
00 

193s m *X4 ms Y 1 *Y 1 +v 


BEEP 5, 220: 
GCURS0R 151: 
GPRINT 3) 1 1 9 J 9 
5,' 119; 3 
310: END 

350: BEEP 10: WAIT 1 
20: PR INT "MISS 
ION ACCOMPLIE, 
BRAU0 ! ! " : WAI T 
360: PRINT "L0NGUEU 
R U0L: T;" UN 
I TES" 


200MF S- 0AND XI <1 
5AND Y 1 < — 1 0AND 
VD--30THEN 350 
202: IF SAND XI >100 
AND XK140AND 
V 1 >220AND Y1 (2 
60BEEP 5: S- 0: 
PRINT "RETOUR 
A LA BASE . . . " 
205: GLCURSOR 

1): LPRINT "0": 
T = T+1 : ! F COA 
LET C-A. GOTO 1 
70 . 

210: GOTO 140 
300: PRINT "ET UNE 
MEDAILLE POSTH 
UME: ": WAIT : 


STATUS 1 

.1020 




«UI&MNCI MM1LCI2 
WTISSC MIIOU4 



A 



DJ 


© 


Mettez un MZ 80B dans votre PC 1500. 


A 


D 


1000 ’B'tiRAPH SCOLOR 0 

1010 LINE lll6,-79>-l36,-6?)-(36,-34)-(119,-42>-(ll6,-79> 

1020 LINE 1122, -69) -1124, -38) -144, -32) -(36, -34) 

1030 LINE (37, -35M80, -40M79, -72)-(37,-67)-(37, -35) 

1040 LINE (36,-69)-U7,-95)-(17,-9BI-(106,-114)-(129,-64)-(129,-54)-ll23,-67) 
1050 LINE (123,-67)- 1105, -109) -(17, -95) 

1060 LINE (55,-33l-(58,-32)-(128,-37)-(127,-53>-(122,-65) 

1070 LINE (43, -39) -(75, -42)- (74, -73) -(42, -65)- (43, -39) 

1080 LINE (81,-40)- (116,-43)- (115,-60) -180, -56) -(81,-40) 

1090 LINE (108,-43)- ( 107,-59) 

1100 LINE (107, -51)- <82, -48) 

1110 LINE (82, -45) -( 107 , -47) 

1120 LJ NE (81,-64)-(U4,-67) 

1130 LINE (81 , -66) -(1 14,-69) 

1140 LINE (81,-68)-( 114,-71) 

1150 LINE (81,-70)-( 114,-73) 

1160 LINE (81,-72)-lll4,-75) 

1170 LINE (34, -73) -(112, -84) -(103, -106)- (20, -92) -(34,-73) 

1180 LINE ( 35, -74)- ( 110, -84)- (108, -88) -(34, -78) -(35, -74) 

1190 LINE (34, -79) -(89, -87>- (83, -97) -(27, -88)- (34, -79) 

1200 LINE (38, -90)-(35, -931-169, -9B)-(71, -96) 

1210 LINE (86, -98) -(91, -B7>-( 107, -90)- (103, -1001 -(86, -98) 

1300 LPRINT îLFRÎKT SLPRINT îLPRINT 
1310 END 


czjfa 


CD 


< - O O O O O O j 

^ggggggggg “AVoi 

aoffoootfoo ooood 

,°ggJS.sôca.,Bgead 


1000 ’6'6RAPH :C0L0R 0 

1010 LINE (24, -50) -(212, -78) -(216, -88) -(206, -144)- (204, -150) -(12, -120) -(6, -112) 
1015 LINE (6,-112)-(24,-50) 

1020 LINE (6, -112) -(202,-144)- (212, -78) 

1030 LINE (102,-62)-(88,-108)-(86,-I12)-(84,-126) 

1040 LINE (10, -96) -(88, -1081 -(206, -126) 

1050 LINE (10, -1001 -(86, -112) -(204, -130) 

1060 LINE (l04,-64>-(210,-80>-(208,-94)- ( 100,-78)- (104, -64) 

1070 LINE 1202, -144M204, -150) 

1100 LINE 118,-72)-(96,-84) 

1110 LINE l78,-5B)-(72»-B0) 

1120 LINE (32, -56) -(72, -62)- 169, -74) -(29, -68>- (32, -56) 

1130 LINE (80, -65) - 188, -66) - <86, -76)- (7B, -75) -(80, -65) 

1140 LINE (26,-78>-(68,-84>-l64,-100>-(22,-94)-(26,-78> 

1150 LINE (42,-il2)-l76,-114)-(74,-l20)-l60,-tl8)-(62,-112) 

1200 LINE (110,-68)-(i80,-78>— (178,-88)- ( 108,-78)- (110,-68) 

1210 LINE 4111» -69) - I 1 79, -79) - ( I 77, -87 ) - ( 107, -77 )-(lll,-69) 

1220 LINE (104,-1 17) -(128,-121)- (126,-128) -(102,-124)- (104,-1 17) 

1230 LINE 1114, -126)-(116, -117) 

1300 l-100:Y--Bi:60SUB 2000 
1310 1=114!Y=-B3!80SÜ1 2000 
1320 M24:Y:-8S:60SUB 2000 
1330 I*l34:Y s -87:60SUl 2000 
1340 X*144:Y=-89:80SUI 2000 
1350 N* 154* Y*-9l s G0SUB 2000 
1355 X=164!Y*-93ï80SÜB 2000 
1360 1=178* Y*-95ï80SU8 2000 
1370 X*192!Y=-97:60SUB 2000 
1380 X=200*Y=-98*60SU1 2000 
1390 X=90* T*-8t 
1400 FOR I=1T0 10 
1410 X=X*7*Y=Y-1.25 
1420 6DSU1 2000 
1430 NEXT I 
1440 I=94*Y=-92 
1450 FOR I=1T0 9 
1455 X=I*7*Y=Y-1.25 
1460 6DSUB 2000*MEXT I 
1500 1=98* V*-9B 
1510 FOR I*1T0 9 
1520 X=I+7*Y=Y-1.25 
1530 60SIIB 2000: NEXT I 
1550 X=98* Y=-104 
1560 FOR I-IT0 3 
1570 I*I+7:Y=Y-1.25 

1580 G0SUB 2000: NE IT I 

1581 X=X+7*Y=V-1.25 

1582 60SIIB 2100 

1584 I=U7:Y=Y-1.25 

1585 FOR I=1T0 2 

1586 X=I*7*Y=Y-1.25 

1588 60SUB 2000*NEXT I 

1589 X=I*7* Y=Y-1.25 

1590 80SUB 2100 
1600 X=166* Y=-98 
1610 FOR I=iT0 5 
1620 X=«+7*Y=Y-1.25 

1625 IF I=5THEN C0L0R 3 ' 

1630 60SUB 2000*NEIT I 
1640 COLOR 0 
1650 1=165* Y=-104 
1660 FOR I=1T0 5 
1670 I=I+7*Y=Y-1 .25 
1680 60SUB 2000: NE IT I 
1700 1=164* Y=-l 10 
1710 FOR I*1T0 5 
1720 X=I*7*Y=Y-1 .25 
1730 60SUB 2000: NE IT 1 
1750 X=163* Y*-l 16 
1760 FOR I*lT0 5 
1780 X=I+7*Y=Y-1.25 
1790 B0SUB 2000: NEXT I 

1999 END 

2000 LINE 1X,Y>- (X*4,Y)- IX+4,Y-3>- (X, Y-3)-(X,Y> 

2010 RETURN 

2100 LINE (I,Y>-(X*l0,Y-l)-(M0,Y-4)-tX,Y-3>-IX,Y> 

2110 RETURN 


On n’est jamais mieux dessiné que par soi- 
même. 


1000 'S'CLS : DEGREE *TEXT :LF ÜBRAPH : RESTORE HOOîCURSOR 10*WAIT OsPRINT 'SHARP' 

1020 GLCURS0R (47,35) : Z=33: 60SUB 10?0*6LCURS0R (87, 38) : Z=12*G0SUB 1090 
1030 6LCURS0R ( 1 16,38) * Z=8* G0SUB 1090:LINE (108,31)-(I03,22)-(113,22)-(10B,31) 

1040 6LCURS0R ( 133, 38) : Z=22*GQSUB 1090: GLCURS0R <172, 38) : Z=12: 60SUB 1090 
1050 LINE (182,33) -(190,34)- (195,33) -(198, 31)- 1199,29) -(198, 27)- (195,25) 

1060 LINE - 1 190,24) - ( 182, 25)- ( 182, 33) :6LCURS0R (0,0):PRINT “Sigle ( 0 ou N )?' 

1070 IF INKEYS ='N"THEN 1086 
1072 IF INKEY4 O'O’THEN 1070 

1080 BLCURS0R (204,8) : CSIZE 1 îLPRINT 'R’:S0RBN : GLCURS0R (-4,3):SDRGN :F0R 1=0 T0 360STEP 30 
1082 A=SIN 1*6: 8=C0S I16ÜF I=0BLCURS0R <A,B)*NEXT I 
1084 LINE -(A, B) '-NEXT I 
1086 TEXT :LF 5: END 

1090 FOR I=tT0 Z'.READ A, B: LINE -IA,B):NEXT I: RETURN 
1100 REH ' Lettre S' 

1110 DATA 38,38,30,39,20,38, 13,36, 10,32, 10,28, 13,24, 19,22,30,20,36, 19,37, 18,37, 15 
1120 DATA 33,14,23,16,12,20,9,13,20,10,30,9,40,10,45,12,48,15,49,18,47,22,44,25 
1130 DATA 38,27,22,30,21,31,21,32,22,33,30,33,35,32,45,29,47,35 
1200 REH ' Lettre H' 

1210 DATA 78,38,78,27,60,27,60,38,51,38,51,10,60,10,60,21,78,21,78,10,87,10,87,38 
1300 REH ' Lettre A' 

1310 DATA 104,38,88,10,95,10,99,16,117,16,121,10,132,10,116,38 
1400 REH ' Lettre R’ 

1410 DATA 139,39, 150,39, 162, 38, 167,35, 170, 30, 169,26, 166,23, 159,21 ,171,10,157, 10 
1420 DATA 143,22,145,25, 150,24,155,25,159,27, 159,30, 155, 33, 150,34, 142, 33,142, 10 
1430 DATA 133,10,133,38 
1500 REH ' Lettre P' 

1510 DATA 173, 39, 190,39, 200, 38, 206,35, 209, 30,208,25, 204, 22, 193, 19 
1520 DATA 182,20,182,10,172,10,172,38 



SNOOPV 


Vive la B.D. 


10 'U'LINE (2IX,-3»B)-(2»Y,-3*B):RETURN 
15 'A'CLEAR :GRAPH '-GOTO 20 

20 FOR I=1TQ 86: RE AD N:FDR A=1T0 N*READ X,Y:60SUB '0':NEIT A*8=B+l:NEXT I 
30 TEXT : LF 5*CSIZE 6:LPRIHT 'SN00PY":TEXT :COLOR 0*LF 3: END 
100 DATA 2,28,32,42,45,2,26,28,41,42,2,24,26,40,41,2,22,36,39,40,2,18,22,35,39,2,15 
110 DATA 18,37,41,3,13,16,36,37,40,43,3,11,13,35,36,41,44,3,10,12,34,35,43,46,3,9 
120 DATA 11,44,49,63,74,5,7,10,44,47,48,52,56,64,72,79,4,6,9,42,45,50,60,75,81,4,6 
130 DATA 9,39,43,54,55,79,84,3,5,8,37,41,82,86,3,4,8,10,12,83,87,2,4,14,85,88,3,4 
140 DATA 13,14,17,86,89,6,3,7,8,10,11,13,14,18,87,90,94,96,5,3,7,8,10,11,18,88,91 
150 DATA 92,98,7,2,6,7,10,11,16,17,19,48,51,89,92,96,99,8,2,6,7,10,11,17,18,19,47 
160 DATA 51,89,92,94,95,97,100,6,2,6,7,10,11,17,18,20,49,52,89,100,6,1,5,7,10,11,17. 
170 DATA 19,21,51,53,90,99,6,1,5,7,10,11,17,19,21,52,54,90,98,5,1,6,7,18,20,22,53 
180 DATA 55,89,97,6,1,6,7,10,11,18,20,22,59,61,83,86,4,2,20,22,24,58,64,81,84,5,2 
190 DATA 19,22,24,55,58,63,68,77,81,5,2,19,20,21,22,24,53,55,68,77,4,3,19,20,21,23 
200 DATA 26,50,53,5,3,6,8,21,23,25,26,28,48,50,5,4,6,8,20,23,25,28,30,46,48,5,4,6,8 
210 DATA 21,23,25,29,32,46,48,5,5,7,9,22,23,25,30,33,45,47,5,6,9,10,22,23,25,32,34 
220 DATA 45,47,4,7,22,23,25,33,35,45,47,4,8,22,23,25,34,36,45,48,4,9,21,22,24,35,37 
230 DATA 46,48,4,11,20,22,24,36,38,47,49,3,14,23,36,38,46,52,3,17,20,37,38,42,51,2 
240 DATA 36,46,49,52,2,35,42,50,53,2,36,39,52,55,2,37,39,55,58,2,37,39,56,59,3,37 
250 DATA 39,40,41,57,60,4,37,39,40,41,50,51,58,61,5,6,7,37,39,40,41,50,51,59,62,5,5 
260 DATA 6,37,39,40,41,50,51,60,63,5,4,5,37,38,40,41,50,51,61,63,5,4,5,37,38,40,41 
270 DATA 50,51,61,63,5,4,5,37,38,40,41,50,51,62,64,5,4,5,37,38,40,41,50,51,62,64,5 
280 DATA 4,5,37,38,40,41,50,51,63,65,5,4,6,36,37,40,41,50,52,63,65,5,5,7,35,38,40 
290 DATA 41,50,52,64,66,5,6,8,32,37,40,41,50,52,64,66,5,7,9,30,36,40,41,50,52,64,66 
300 DATA 5,8,10,28,35,39,41,50,52,65,67,5,9,11,26,33,36,42,50,52,65,67,5,10,13,25 
310 DATA 30,33,36,50,52,65,67,6,12,15,24,26,33,34,36,38,50,52,64,66,6,14,17,23,24 
320 DATA 32,34,37,39,50,51,64,66,6,12,13,16,23,32,33,34,36,50,51,64,66,6,11,16,18 
330 DATA 21,32,34,36,38,40,50,64,66,6,10,12,15,17,20,24,33,34,48,49,63,65,6,10,12 
340 DATA 17,19,24,25,34,35,46,48,63,65,6,10,11,19,21,25,26,35,36,43,47,62,64,5,10 
350 DATA 12,20,22,25,27,36,44,61,63,3,10,12,21,25,59,61,2,10,12,57,59,4,11,12,38,39 
360 DATA 58,60,68,72,5,11,13,37,38,58,60,65,69,72,75,5,11,13,36,37,58,60,63,65,75 
370 DATA 77,8,12,13,26,28,35,36,37,42,45,50,58,63,69,72,76,78,7,12,14,28,35,40,47 
380 DATA 48,50,58,60,71,74,77,80,7,12,14,20,21,29,31,48,50,58,59,72,74,77,79,8,13 
390 DATA 15, IB, 20, 30, 32, 48, 50, 59, 60, 66, 67, 73, 75, 77, 79, 6, 14, 18, 31, 33, 48, 50, 66, 68, 74 
400 DATA 75, 76, 7B, 6, 15, 17, 31, 33, 48, 49, 50, 51, 67, 68, 73, 76, 6, 17, 19, 26, 27, 33, 34, 47, 48 
410 DATA 67,68,70,73,5,18,21,23,26,33,35,45,47,66,70,4,20,24,33,35,43,45,60,65,5,23 
420 DATA 26,33,35,41,43,47,49,54,61,2,25,34,40,54 


Vive la Bande Dessinée. 


10 INPUT ■echelle='!E:E=E+2:TEXT :LF 10:6RAPH 
20 RESTORE 

30 FOR A=1T0 6:READ X * READ 'CGLCURSOR <EtX,E!Y) 

40 READ XsREAD Y: IF X=999THEN 60 
50 LINE -(EIX,E*Y):BDTO 40 
60 NEXT A: TEXT *LF B: END 

1000 DATA 27,0,29,5,31,8,30,12,31,16,35,20,33,22,32,20,33 

1005 DATA 22,37,22,33,22,38,19,40,20,39.5,21,40,20 

1010 DATA 41,18,43,16,40,15,42,16,35,12,31,8,35,12,40,15 

1015 DATA 44,17,45,16,43,12,45,15,50,14,54,15,57,18 

1020 DATA 58,22,58,25,56,26,52,27,44,25,45,26,46,30,45,31 

1025 DATA 43,30,48,27,43,30,48,27,43,30,44,29,44,30 

1030 DATA 43,30,43,26,44,25,47,26,48,30,50,32,50,34,49,35 

1035 DATA 46,33,46,34,44,30,48,32,47,30 

1040 DATA 48,30,50,32,50,34,49,35,47,35,54,37,47,35,51,40 

1045 DATA 47,35,44,36,47,35,45,40,40,41,34,41,34,43,32,43,31,42,32,40 

1050 DATA 31,42,12,56,10,56,11,52,14,50,25,43,14,50,14,47 

1055 DATA 22,42,21,40,22,38,25,40,22,38,21,36,25,35,27,37,25,35,28,34,31,36,32,40 

1056 DATA 35,41,32,40,31,36,33,35 

•1060 DATA 29,32,29,34,29,32,30,28,31,25,39,34,38,34,40,40 
1065 DATA 44,38,44,33,45,35,43,33,42,36,38,34,38,35 
1070 DATA 30,30,26,31,26,30,30,27,26,30,23,28,22,24,23,21 
1075 DATA 25,20,30,20,25,20,30,21,29,17,30,15 
1080 DATA 999,999,35,0,33,5,30,5,27,0,53,0,54,2,51,3,46,3 
1085 DATA 44,1,44,0,44,1,43,2,45,5,53,5 
1090 DATA 55,3,53,2,55,3,53,5,54,6,53,8,44,8,40,7,40,5,43 
1095 DATA 4,40,5,40,7,44,8,43,10,45,12,50,12,50,14 
1100 DATA 50,12,52,12,55,14,55,15,55,14,52,12,53,10,53,8 
1110 DATA 999,999,43,9,37,8,35,8,33,10,32,9,37,6,39,7,39,8 
1115 DATA 999,999 

1120 DATA 38, 25, 40,24, 42, 27, 43, 32, 41, 31, 38, 29, 40, 2B, 41, 30 
1125 DATA 42,29,41,30,38,30,39,30,38,25,999,999 
1130 DATA 46,40,47,42,46,45,24,58,23,56,25,55,30,52,38,48 
1135 DATA 30,52,29,51,35,47,32,46,32,45,39,43,38,41 
1140 DATA 999,999,24,25,25,26,26,26,29,24,26,26,27,24,26 
1145 DATA 22,25,21,999,999 



PC 1500 

Introduction d’une fonction 

FONC-LINE 

Ce programme, en langage machine, per- 
met de transformer une variable alphanumé- 
rique en une fonction numérique et de sto- 
cker simultanément cette fonction dans une 
ligne de programme. 

Utilisation : 

- Faire NEW &38E9 

- Implanter le programme en LM à partir de 
38C8 

- Faire CALL &38C8 après avoir stocké les 
données nécessaires à l’exécution du pro- 
gramme en 38C5, C6... 

Dans le programme BASIC, écrire une ligne 
Y = ... 


Cherchez dans la mémoire l’adresse du 
premier. 

Dans le cas de ce programme en BASIC, 
cette adresse est 38F6 (données stockées en 
38C5 et 38C6, voir ligne 40). 

Le CALL doit suivre l’INPUT. 

Ensuite, on gère la fonction comme un sous- 
programme. 

Utilisation du programme BASIC ci-contre 

- Faire NEW &38E9 

- Ecrire ce programme tel quel 

- Faire DEF D à la première exécution. 

Exemple : DEF D . . 

« Calcul : » 1 +2 ENTER 
« 1 + 2 = » 4 ENTER 

« 1 + 2 = » 3 ENTER 

« Bravo. C’était cela. » 


Programme LM : Explications 
X X Pointeur de lecture des données 

U U Adresse d’implantation de la 

fonction dans le programme 
BASIC 

YY Adresse du Buffer d’INPÜT 

..C8 Apel du sous-programme 

d’interprétation du Buffer 
d’INPUT 

..CB à D5 Initialisations des registres 
,.D7 à DD LDIR à la mémoire (transfert 
du Buffer dans une ligne de 
programme) 

..DF à E7 Rajout du REM pour éviter 
des erreurs dans la ligne 
BASIC 

,.E8 Retour au programme BASIC 


C5 ?? h line bas i c 
C6 ?? I I i ne bas i c 

C8 BE CALL F957 
C9 F9 
CA 57 

CB 68 LD Xh, 38 
CC 38 

CD 6A LD XI, C5 
CE C5 

CF 65 ILD A, <XhXI > 
D0 08 LD Uh, A 
DI 65 ILD A, (XhXI > 
D2 0A LD U I , A 
' D3 A5 LD A, (788B) 
D4 78 
D5 8B 

D6 IA LD Yl, A 
D7 55 ILD A, < Vh V I ) 
D8 B7 CP 0D 
D9 0D 

DA 8B JR Z +03 
DB 03 

DC 41 ILD OJhUI ), A 
DD 9E JR -08 
DE 08 

DF B5 LD A, 3A 
E0 3A 

El 41 ILD OJhUI A 
E2 B5 LD A, Fl 


E3 Fl 

E4 41 ILD (UhU I ), A 
E5 B5 LD A, AB 
E6 AB 

E7 0E LD (UhU I ), A 
E8 9A RTN 


DATA 

8BE, 8F9, 857, 868, 
838, 86A, 8C5, 865, 
808, 865, 80A, 865, 
81 A, 8.58, 87B, 8.55, 
8B7, &0D, 88B, 8.03, 
8.41, 89E, 8.08, 8B5, 
&3A, 8.41, &B5, 8F 1, 
8.4 1 , 8B5, 8AB, &0E, 
&9A, 


10: GOTO 40 
20: Y=. 


30: RETURN 


40: "X"CLEAR :DIN 
A$(0J*30:POKE 
838C5, 8.38, 8F6 
50: E=0: N=N+ 1 : 

INPUT "Calcul: 

" ; A$<0) : CALL 8. 
38C8 

60: LIAIT 0: 60SUB 2 
0: PR1 NT A$(0>; 

: INPUT X 
70: CLS : 1F X< >Y 
PAUSE " ERREUR 

" : E-E+ 1 : 

GOTO 60 

80: S-S+20-E: WA 1 T 
: PR I NT "OK sco 
re : "ïS/N; V20 
" : GOTO 50 
90: "D"POKE 8.38C8, 
8BE, 8F9, 857, 86 
8, 838, 86A, 8C5, 
865, 808, 865, 80 
A, 8A5, 878, 88B, 
8 1 A, 855 

100: POKE 838D8, 8B7 
, &0D, &8B, 803, 8 
4 .1 , 89E, 808, 8B5 
, 83A, 841, 8B5, 8 
Fl, 841, 8B5, 8 AB 
, 80E, 89A 
1 10: GOTO 40 
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FAITES 

VOS PROPRES GABARITS 
POUR VOS NOUVEAUX CLAVIERS 



COMMENT DEVENEZ-VOCIS 
ADHERENT Aü CLÜB ? 

Aujourd’hui, c’est votre secrétaire qui 
vous écrit. En effet, il y a quelques 
temps, Luc m’a dit : « Mais au fait, tu 
t’occupes du Club depuis le début et 
pourtant personne ne te connaît. » 

Eh oui, c’est vrai ! J’ai dactylographié les 
textes, participé à la mise en page des 
premiers numéros, répondu au télé- 
phone, répertorié les bulletins d’inscrip- 
tion, etc. 

Et maintenant ? 

Avec le succès de notre Club, tout s’est 
structuré. 

Lors de l’achat, de votre micro-ordina- 
teur, vous trouvez un bulletin d’inscrip- 
tion que vous nous retournez complété. 
Parfois, vous nous écrivez directement 
pour demander votre rattachement au 
Club. 

Que se passe-t-il ensuite ? 

Je reçois de 5 à 25 bulletins par jour. Je 
les classe par catégorie. Et comme nous 
sommes bien placés dans ce domaine, 
je rentre les coordonnées du nouvel 
adhérent dans un ordinateur évidem- 
ment (Sharp SG 2800 H) pour complé- 
ter le fichier et pour sortir les étiquettes 
pour l’envoi du prochain Bulletin. 

Et après ? 

J’envoie un courrier que j’appelle 
« accusé réception d’inscription » et s’il 
reste des Bulletins, j’en joins un exem- 
plaire. 

J’avoue que j’ai de plus en plus de tra- 
vail, mais voilà, c’est la rançon du 
succès... 

Je n’ai qu’un regret, c’est de ne pas con- 
naître la programmation, mais, grâce à 
vos nombreuses lettres, je ne suis plus 
tout à fait novice en la matière. 

Sharpentièrement vôtre 
DOMINIQUE 


LOGITHEQUE 
SHARP PC- 1500 

Pts 

Bonus 

De M. GLUCK J.-P. 

- « Calendrier perpétuel » sur K7 


à renvoyer 3 

De M. ARGO 

(Micro-Informatique Saint-Avold) 

- Biorythme astral 4 

De M. DEICHA Cyril 

- Répertoire téléphonique 5 

De M. COLLANNE 

- Le jeu de la puce 4 

De M. LOWY Robert 

- Calendrier (opération sur les 

dates) 2 

De M. GUYON Frédéric 

- Espérance de vie 3 

De I.S. 

- Pendu 3 

- Complexes (calcul dans C) 8 

De M. PERRE 

- Dump 4 

De M. DELYS J.-R. 

- Etudes graphiques 5 

De M. CHRIN Thierry 

(Lisajou) 

- Figures 3 

De M. VISOTTI René 

- Type-writer (traitement de 

texte) 5 

De M. DAGOUSSET Jacques 

- Racines polynômes DEGN 

(maths) 4 

De M. GOUBERT Richard 

- Rapprochement bancaire 3 

De M. ROUTELOUP Philippe 

- Statistiques (maths) 4 

De M. RINGENBACH Régis 

- Guerre des robots (jeux) 2 

De M. CHARLES Frédéric 

- Roland Garros (jeux) 3 

De M. CHARLES Frédéric 

- Labyrinthe (jeux) 2 


De M. CHARLES Frédéric 

- Casse brique (jeux) 2 

De M. GOUILLARD Louis 

- Municipales (dépouillement de 

scrutin) 3 

De M. GOUILLARD Louis 

- Conversion des pentes 3 

De M. GOUILLARD Louis 

- Labyrinthe (jeux) 2 

De M. DUPONT Jean 

- Boogle (jeux) 4 

De M. DUPONT Jean 

- Dateor 3 

De M. DUPONT Jean 

- Chronomètre 3 

De M. HANROT J.-C. 

- Chasse à l’écureuil 3 

De M. LEGRAND J.-M. 

- Carré magique 4 

De M. VERDIERE 

- Météo 5 

De M. VERDIERE 

- Super dessins 4 

De M. FETHY SARTHE 

-ASM 6800 10 

De M. EDOUARD Bernard 

- Jeu du 421 (jeux) 10 

De M. DELYS J.-R. 

- Etiquettes 4 

De M. ABRIVARD P. 

- PC-CALC (utilitaire) 10 

De M. ABRIVARD P. 

- PC-Fichier (gestion adresses) 7 



I PC 1111-1151 1 

EDITORIAL 

Les possesseurs de FC 1211 auraient-ils tous acheté des PC 1251 ? C’est quotidiennement que nous rece- 
vons des courriers pour le PC 1251. Alors que pour le PC 1211, ce serait plutôt trimestriellement. En un 
trimestre, une seule lettre d’astuces, celle de M. Carasso Antoine. Eh bien alors, que se passe-t-il ? Vous êtes 
les plus nombreux (2.500 pour le PC 1211, 1.600 pour le PC 1500, 100 pour le 1251), et vous participez 
le moins. Alors, pour que vous ne soyez pas trop lésés par rapport aux autres, nous rééditons une partie 
du Bulletin n° 1. Pour le PC 1251, vous démarrez bien, sur les chapeaux de roues. Après le PC 1500, attaquez- 
vous au PC 1251. 

Continuez. 


Luc BCJRELLER 



6 NOUVELLES 
INSTRUCTIONS 
BASIC POUR 
LE PC 1211 


Par Antoine CARASSO 


Lorsque l’on efface un programme sans uti- 
liser l’instruction NEW, on remarque que les 
mémoires souples qui étaient mobilisées par 
le programme se trouvent chargées avec les 
codes ASCII de chacun des caractères de 
l’ex-programme. Il arrivait parfois que cer- 
taines de ces variables soient chargées 
alphanumériquement. C’est en étudiant 
cette dernière particularité que j’ai abouti 
(après plusieurs jours de travail et un chan- 
gement de piles) à des résultats qui seraient 
susceptibles d’intéresser quelques membres 
du Club : c’est pourquoi je vous les 


communique. 

Tout d’abord, je crois qu’il serait bon de faire 
une mise au point sur la traduction 
BASIC -►ASCII effectuée par le PC lors d’un 
effacement de programme ligne à ligne. 
Quand on efface un programme, deux cho- 
ses se passent simultanément : 

- la ligne concernée disparaît du 
programme, 

’ on retrouve un résidu de cette ligne dans 
une variable alphanumérique ou numérique. 
* Si la variable est numérique, la traduction 
se passe en gro t s comme cela : 


A (204) = 36^95 06 73 Ol^*- ligne de programme « 


Le PC traduit chaque caractère en son équi- 
valent ASCII, puis le range de droite à gau- 
che dans la variable concernée [ici A (204)]. 
* Si la variable est alphanumérique, cela se 
passe de la même façon, à cela près : pour 
chaque caractère, son code ASCII est ren- 
versé MEx. : « * » (code 73) devient « ? » 
(code^). 

Lors du dernier bulletin, J.-C. Laurent don- 
nait une méthode très efficace pour traduire 
des variables numériques en ligne de pro- 
gramme. Pour ma part, je l’ai modifiée de 
façon qu’elle marche pour des variables 
alphanumériques. Ce dernier cas est intéres- 
sant parce que, sachant que chaque code 
ASCII était retourné, j’ai essayé de créer des 
lignes de programme avec des instructions 
dont ma table ASCII (pourtant assez com- 
plète) disait que leur code inverse n’existait 
pas. Les instructions sont nombreuses, c’est 
pourquoi je ne vous citerai que celles qui 
présentent un intérêt particulier : CSAVE 
(code 6£), ASN (code 3.), REM (code 3¥), 
STOP (code 6¥), RADIAN (code 3%), LIST 
(code 3E). 

Ces instructions vont permettre de créer 


deux mémoires souples + 4 nouvelles ins- 
tructions de BASIC ! 

CSAVE donne « V™ » (de code ^6) : c’est 
une mémoire fixe (comme A ou Z$) 
STOP donne « i » (de code-¥6) : c’est une 
mémoire fixe (comme A ou Z$) 

ASN donne « Z2 » (de code .3) : c’est 
l’équivalent du signe « - » ex. : ^ 3 = - 3 
REM donne « ? » (de code Y3) : c’est une 
instruction qui pour 
A é 0 provoque une erreur 1... 

A > 0 et A < 9,9999^99 donne 1 
RADIAN donne « ” » (de code %3) : c’est 
l’équivalent de « ABS SGN » 

LIST donne « space » (de code E3) : c’est 
une fonction linaire qui, quand on demande 
« espace A » varie de 1,00 5249316 à 3,14 
2489146 quand A varie de 1 à ÇÈ99. 
Autrement dit : 

- les « di » et « ” » améliorent le graphisme 
du PC puisqu’il devient possible de les affec- 
ter à une variable affichée lors d’un PRINT 
ou un PACJSE, 

- les « V » et « ; » viennent rejoindre leur 
frère « - » parmi les mémoires fixes, ce qui 
porte le nombre de celles-ci à 29, 


- les « ” » et « ? » viennent renchérir le BASIC 
du PC 1211. 

Voici la méthode pour créer ces caractères : 
1 ) Mettez-vous un RESERVE et affectez à la 
touche « A » l’instruction BASIC correspon- 
dante au caractère désiré. 

2) Faites un NE W en m ode RUN puis tapez 
« AJS203) = « ISHFT I A », puis venez en 
mode PRO. 

3) Tapez les lign es « ’ : PR INT t~i » et « Z : 
* », puis tapez « Z J ENTER I » (pas « | ENTERI 
[ENTER I » !). 

4) Revenez en mode RÜN, lancez le pro- 
gramme : quand s’affiche tapez « MEM 
lENTER 1 », puis a ppuyezun e fois sur la tou- 
che ION 1, puis sur i ENTER une erreur à la 
ligne survient, appuyez sur CL. 

5) Venez en mode PRO et appuyez pendant 
quelques secondes sur la touche |~î~] , le 
caractère désiré ne tardera pas à apparaître 
à la ligne 788000, il ne vous reste main- 
tenant plus qu’à l’isoler dans une variable 
ou une ligne de programme. 

NB. Pour obtenir plusieurs caractères sur la 
ligne 788 000, il suffit d’appuyer autant de 
fois sur « ISHFT! A » que de caractères vou- 
lus (bien sûr moins de 7 fois !). 

Enfin, voici les conséquences de tout ceci : 
la suite du tableau des codes ASCII du PC 
que je vous avais envoyé dans ma dernière 
lettre. 



PC 1211 


Ce tableau comporte malheureusement 
beaucoup de trous, c’est dommage... 

En étudiant les codes ASCII de chacune des 
instructions créant des caractères bizarres, 
j’ai abouti à ce petit moignon de tableau : 


code caractère 

code caractère 

code caractère 

code caractère 

code caractère 

code caractère 

.1 V 

El ’ 

%1 ; 

¥1 : 



.2 ? 

E2 ? 

%2 ? 

¥2 ? 



.3 EU 

E3 ... 

%3 ” 

¥3 ? 



.4 . (hexa?) 

E4 £ (hexa?) 

%4 % (hexa) 

¥4 ¥ (hexa) 

$4 $ (hexa) 

7T4 7 T (hexa) 

.5 J 

E5 K 

%5 L 

¥5 M 



.6 Z 

E6 V~ 

• 

¥6 : 



.7 ? 

E7 ? 

. 

¥7 ? 



.8 LIST 
.9 MEM 
... ABS 
.£ THEN 

.¥ PACJSE 

E. SG N 
E¥ BEEP 

. 

¥8 CSAVE 
¥9 DEBCJG 

¥E < > 

¥¥ ÜSING 




Malheureusement, on remarque que la case 
%6 est vide ; c’est la seule dont je ne con- 
nais pas l’instruction BASIC, mais je suis à 
peu près sûr quelle existe, c’est pourquoi je 
serais heureux si SBM pouvait communi- 
quer l’instruction de BASIC (si toutefois 
elle existe 1) dont le code est 6%... 


.¥ 

t6V 

mwn 

¥6 ; 

• • 

Ê5 

%5 

¥5 

.4 

É4 

%4 

¥4 

.0 i__i 

É3... 

%3 ” 

¥3 ? 

.1 

Ël 

%1 

¥1 


ASTUCES 


Passons maintenant aux caractères spéciaux 
qui intriguent certains des possesseurs de la 
PC 1211. Voyons-les : ^ . 

- Le « ! » ne représente pas l’opération 
mathématique factorielle. Ce caractère ne 
sert strictement à rien du point de vue pro- 
grammation. 11 est là pour rendre plus vivant 
vos messages alphanumériques (signe de 
ponctuation). 

- Le « % », c’est la même chose. Il n a pour 
but que de rendre plus claires vos expli- 
cations Ce caractère ne calcule pas les 
pourcentages. 

- Le « lui aussi ne sert à rien. Il est la pour 

faire joli (« ^ » - yen, monnaie japonnaise). 

. Le « #= » ne correspond pas à l’opérateur 
logique f (en BASIC < ». Ce caractère est 
utilisé par l’instruction ÜSING (voir manuel). 
Tout comme l’instruction CLOAD 1, l’accès 
au « langage machine » nous est permis, sui- 
vant le mois de fabrication de votre PC 1211, 
avant mars 1981 et depuis août 1981, 1 ac- 
cès en est simple [l’introduction d une ligne, 
son effacement (mode PRO), A/204) puis on 
joue avec î et ^ ]• 


Pour toutes les PC 121 1, voici comment il 
faut procéder : il faut charger un programme 
(RESERVE) en mode PRO, puis faire action- 
ner les touches f et | pour y accéder ... 
Après tous ces efforts, vous vous apercevez 
que ce « langage machine » ne vous sert a 
rien puisque vous pouvez utiliser par pro- 
gramme les données stockées dans le BA- 
SIC et vous ne pouvez changer ces données. 

- ün second play back 
En mode de bureau, quand vous disposez 
les 24 caractères de l’afficheur (par exemple 
en introduisant une longue fonction), 1 affi- 
chage se déplace. La pression d ENTER vous 
donne le résultat puis en pressant 4 oup* , 
vous récupérez votre fonction avec le cur- 
seur au début, prêt à travailler. 
Maintenant, au lieu de presser directement 
< > , faites SHIFT avant. Votre fonction 
apparaît alors en commençant par la fin 
(seule une lecture est alors possible). En 
pressant une nouvelle fois <3 ou t> , vous 
réobtenez le début de votre fonction. 


m rnî (24 fats) 22222 22 (24 fois) ENTER 
11.1111 111 1 1 E47 I SH1FT t> 
22222222222222222 


OU 


puis O ou > 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i l 

En programme, un résultat affiché par un 
PRINT ne peut être utilisé directement en 
mode de bureau. Nous vous conseillons de 
toujours utiliser vos programmes en mode 
DEF et d’utiliser une mémoire comme (M + 
M -) à l’aide de ce programme. 

Exemple : 10 « A » AREAD A : END 
Les nombres affichés en PRINT suivi de 
SHIFT A introduisent un nombre dans la 
variable A. Pour la réutiliser, on utilisera la 
variable A. 


1 12.051 


SHIFT A 


| A - .05 | 

CZ 

lZl 



PROGRAMMEE 


PC 1111 


“POLINT i 


Ce programme de jeu oppose deux joueurs 
utilisant les services de l’ordinateur. 
REGLES : Le jeu se joue entre deux joueurs 
A$ et B$ en un certain nombre d’années de 
jeu, ce nombre n’étant pas fixé à l’avance. 
Au début de chaque année, on indiqué au 
joueur le montant des ressources annuelles 
qu’il peut répartir entre (dans l’ordre) ; 

* Achat d’armements (K pour A$, L pour B$) 

• Dépenses de consommation (ü pour A$, 
V pour B$) 

- Investissements productifs (R pour A&, 
S pour B$). 

Les ressources annuelles de base sont éga- 
les à : 

pour A$ : C = 1000 + 0,2 K, 
pour B$ : E = 1000 + 0,2 L ; 
mais les ressources réelles sont obtenues en 
modifiant ces ressources de base pour tenir 
compte des contraintes résultant du résul- 
tat du coup précédent (guerre perdue, guerre 
gagnée, désarmement, paix de compromis). 
La répartition de ces ressources entre les 
trois postes indiqués ci-dessus est soumise 
aux contraintes suivantes : 

Achat armement <^0,5 
(ressources annuelles) 

Dépenses de consommation ^>0,25 
(ressources annuelles) 

Par exemple, pour des ressources de base 
égales à 1080, l’achat d’armement ne peut 
atteindre 540 et la consommation doit être 
supérieure à 270. Le programme alerte le 
joueur qui a effectué une répartition incor- 
recte à ce point de vue (par contre, il n’a pas 
été possible de prévoir un signal d’alerte si 
la somme des 3 postes est différente du 
montant des ressources allouées). 

Après avoir réparti leurs ressources, les 
joueurs jouent à tour de rôle. Un premier 
programme SHFT A (ligne 1 à 9) détermine 
quel est le joueur qui commencera à jouer. 
Le second programme SHFT B règle le 
mécanisme du jeu. 

Chaque année, le joueur qui commence a 
le choix (en principe) entre 3 solutions : 

P : passer la main à l’autre joueur 
D : imposer une conférence du désarme- 
ment 

G : déclarer la guerre (seulement si une con- 
férence du désarmement n’a pas eu lieu 
depuis 3 ans). 

Si le choix est P, on passe à l’année suivante, 
aucune opération politique ne devant se pro- 
duire au cours de cette année. 

Si le choix est D, les deux joueurs s’enga- 
gent à ne pas déclarer la guerre pendant 3 
années consécutives. Au cours de ces trois 
années, ils n’auront le choix qu’entre les 
décisions P et D. De plus, les joueurs 
doivent : 

- réduire leur stock d’armes à 10 % de sa 
valeur actuelle, 

- fournir à l’autre joueur des ressources éga- 
les à 10 % de sa consommation annuelle 
actuelle. 

Si le choix est G, l’autre joueur aura le choix 
entre deux répliques : 

22 - accepter la guerre, 


- proposer une paix de compromis qui doit 
toujours être acceptée. 

S’il accepte la guerre, le vainqueur du con- 
flit est celui des joueurs dont le stock d’ar- 
mement est supérieur à 1 ,5 fois le stock 
adverse. Cependant, si l’un des stocks est au 
moins égal à 3 fois le stock adverse, un holo- 
causte nucléaire anéantissant les deux ad- 
versaires se produit et la partie est déclarée 
nulle. 

Si aucune de ces hypothèses ne se réalise, 
la guerre est dite « sans résultat ». 

Les conséquences d’une guerre sont les sui- 
vantes : si JS gagne et si KS perd : 

1) K$ perd 25 % de son stock d’armements 
et verse à J$ une indemnité égale à 10 % 
de ce stock. En outre, ses investissements 
sont réduits de 20 %. 

2) jé perd 10 % de son stock d’armement 
et 10 % de ses investissements. 

Si la guerre est sans résultat, chaque joueur 
perd 5 % de son stock d’armement et 10 % 
de ses investissements. 

Si une paix de compromis est acceptée, le 
joueur qui l’a proposée paiera à son adver- 
saire une indemnité égale à 20 % de son 
stock d’armements. 

On démarre le programme par SHFT À. On 
introduit les noms des joueurs dans un ordre 
quelconque. On introduit ensuite une se- 
mence constituée par un entier arbitraire (si 
on veut le choisir équitablement, on peut 
convenir, par exemple de laisser choisir la 
moitié des chiffres par un joueur et l’autre 


moitié par l’autre). Ensuite, chaque joueur 
fait choix d’un entier N (de préférence infé- 
rieur à 10) et le programme (spg 900) déter- 
mine pour chaque joueur un nombre aléa- 
toire caractéristique. Le plus grand de ces 
deux nombres désigne le joueur qui sera le 
premier à jouer. 

On poursuit le programme par SHFT B. Les 
indications nécessaires pour fixer les déci- 
sions des joueurs et pour connaître les résul- 
tats des coups sont données par l’ordinateur. 
Lors de la répartition des ressources annuel- 
les chaque joueur devra utiliser à son tour 
l’ordinateur en prenant les précautions con- 
venables pour que l’adversaire ignore la 
répartition effectuée. Il est clair que les 
joueurs doivent s’engager à ne pas utiliser 
l’ordinateur pour se renseigner sur la situa- 
tion de l’adversaire. 

Si aucun joueur n’a déclenché au cours de 
la partie un holocauste nucléaire, le joueur 
qui a atteint le premier un volume d’inves- 
tissements égal à 2.500 a gagné la partie. 
En pratiquant ce jeu, on constatera que les 
tactiques à utiliser pour gagner ne sont pas 
évidentes, ce qui rend le jeu varié et attractif. 
Les règles précédentes peuvent être modi- 
fiées si on le désire mais on notera que le 
programme actuel épuise la quasi-totalité 
des pas de programmes et la totalité des 
mémoires, ce qui interdit les modifications 
autres que celles portant sur les pourcenta- 
ges de pertes ou de versements. 

M. BOISRAYON 


1 ClEAR i 
PR INT "*P0LI 
TIQUE" 

2: PR INT "INTER 
NATIONALE*": 
PP. INT "NOMS 
JOUEURS" 
4MNPUT At« B$s 
"SEMENCE 3 " ? X 
6: K.=K+1 : IHPUT 
"H=" ï N: G0SUB 
900 

?: IF K< 2LET O 
Z: GOTO 6 
S: D=Z: IF C D 
PP INT A*? "CG 
MMENCE LE JE 
U":F*=A* :G$= 
B$:END 

9 : PP I NT Br?" C 
OMMErtCE LE J 
EU":F*=B*:G* 
=Af ! END 

10: "B"U*0:C*100 
0:E=100Ci:ü=0 
:p=0:T=Ci:D*= 

44: W=W+1 SPRINT 
"ANNEE NO:"! 
U 

45: PR INT "C="5C 
: IHPUT K, U» R 
s GOTO 250 

46: PR INT "E=”;E 
! IHPUT L'V,S 
s GOTO 252 

49: IF 0.-2500LET 
Qf=AJ: GOTO 6 
0 

52: IF P>2500LET 
Q*=B$: GOTO 6 
0 

56: GOTO 64 

60: PRINT G*;" G 
AGNE LA PART 
IE":EnD 

64: IF W '2-1 HT <" 
W/2>OûPRINT 
F# 5" JOUE": K 
*sCf:y*=G*: 
GOTO 75 

68: PRINT g» 5" J 
DUE" : X$=G*: Y 
$=F*-.6ûT'û 75 

75: IF W< *TLET Z 
*="P,D 
GOTO 77 

76: LET Z*="P,D, 


7?: PRINT "DECIS 
ION DE "sx*i 
"s "îZ$: IHPUT 
D$ 

84: IF D**"P"LET 
1=0: OINT <: E 
3+. 2R>: E-INT 
<E3+.2S> : 
GOTO 44 

92: IF D*="D"LET 
1=1 • J=l:G0T0 
160 

96: PRINT "DECIS 
ION DE VT 
? " :G»C?"î 
IHPUT D* 
100:IF D*="G" 
GOTO 120 
108: IF V*=A*LET 
1=5: GOTO 116 
112: 1*6: ,i=5: GOTO 
204 

116: J*6s GOTO 204 

120: IF <M>=5M>*< 

n >=?n>*<: n+n > 
1000901 GOTO 
128 

124: PRINT "HÜL0C 
AUSTE HU0LEA 
IRE! PARTIE N 
ULLE": END 
128: IF M>=1.5N 
LET 1=3: 
PRINT A*5 " G 
AGNE LA GUER 
RE": GOTO 140 
132: IF N>=1.5M 
LET J=3: 
PRINT B*;" G 
AGNE LA GUER 
RE": GOTO 144 
136: 1=4:. J=4: 

PRINT "GUERR 
E SANS RESUL 
TAT" : GOTO 20 
4 

140: J=2: GOTO 204 
144: 1=2: GOTO 204 
160: T=W+-3: GOTO 2 
04 

204 : GGSUB <490+1 
01 > 

244: G0SUB <491+1 
0J) 

248: GOTO 44 
250: IF <K<. 5C>*< 
IJ>. 25CX 1 
GOTO 45 

251 : M=M+K: 0=U+Rs 
GOTO 46 


252:IF a<.5E>*< 
v > . 25E > < 1 
GOTO 46 

253 : M=N+L : P=P+S : 
GOTO 49 

500: C= INT CE3+.2 
R+. 1 *< V-U>>: 
M=INT .LM: 
RETURN 

501 : E=INT CE3+.2 
S+. 

N* INT . IN: 
RETUPN 

510: OINT CE3+.2 
R-. I.H>: M-IHT 
» 8M : 0= I NT .7 
50: RETUPN 

51 1 : E= INT CES +.2 
O- .IM 1 : N - INT 

RETURN 

520* OINT CE3+.2 
R+. IN>:0=IHT 
„ 90: M-- [ HT .9 
U: RETUPN 

52 1. : E= INT CE3+.2 
3+. IM> :P=IHT 
„ 9R: n=. 9H: 
RÊTURN 

530: C= INT CE3+.2 
R ■' : M= I HT' .5M 
: 0=1 HT . 90: 
RETUPN 

531 : E=IHT CE3+.2 
S> : N-- INT' ,5N 
:P=INT . ?p: 
RETURN 

540: OINT <E3+.2 
P+. 2H>: 
RETURN 

541 : E=INT <E3+.2 
S+. 2f1>: 
RETURN 

550: OINT CE3+.2 
R-.2MJ: 
RETURN 

551. : E=INT CE3+.2 


900: FOR H=1TG N 
90 1 : Y=T ( LX+L.00 X 
+IT '* : OV-INT 
Y: N=Z*E9 
902: MENT H 
903: RETURN 


♦POLITIQUE 
INTERNATIONALE* 
NOMS JOUEURS 
HENRI COMMENCE L 
E JEU 

ANNEE N0: 1 . 

O 1000. 

O 1000. 

E=1000. 

HENRI JOUE 
DECISION DE HENR 
I : P * D • G 
ANNEE N0s 2. 
01120. 

E=1060. 

JULES JOUE 
DECISION DE.JULE 
S : P < D ? 

ANNEE H0: 3. 
01080. 

E=l 1 20. 

HENRI JOUE 
DECISION DE HENR 
I : P « D =' 

ANNEE N0: 4. 
01140. 

E=1 1 40. 

JULES TOI IF 
DECISION DE JULE 
S : P < D ? 

ANNEE N0: 5. 

C= 1 1 40. 

E=1 100. 

JULES GAGNE LA P 
ARTIE 


PROGRAMME 
■ “HORAIRE” 


Le programme a pour objet : 

- detablir l’horaire de 9 trains desservant 
9 villes, 

- de reproduire cet horaire à la demande, 

- de rechercher les trains au départ d’une 
ville donnée pouvant être empruntés à par- 
tir d’une heure donnée. 

Les trains sont désignés par une chaîne de 
7 caractères : 

1 er caractère : N pour un train ordinaire, 
S pour un train à supplément. 

2 e -5 e caractère : Numéro du train. 

6 e -7 e caractère : symbole indiquant les par- 
ticularités du trafic : 

TJ : train circulant tous les jours 

NF : circulant seulements les jours non 

fériés 

FS : circulant seulement les jours fériés 

SA : train saisonnier 

HS : circulant l’hiver seulement 

ES : circulant l’été seulement 

etc. 


Le programme est divisé en trois parties. 

« A » est la partie permettant de constituer 
l’horaire. 

Après avoir fait SHFT A, on entre le nom 
des 9 villes dans l’ordre de succession 
géographique. 

On introduit ensuite l’horaire de chacun des 
9 trains en commençant par le symbole du 
train puis par les chaînes caractérisant les 
arrêts dans chaque ville. Ces chaînes sont 
de la forme NN.HHMM où NN est un nom- 
bre de 0 à 99 indiquant la durée d’arrêt en 
gare en minutes, 99 correspondant à un 
arrêt définitif (terminus) ; HH étant l’heure 
d’arrivée, MM la minute d’arrivée. Ex. : 
10.0815 indique que le train arrive à 8 h 15 
et repart à 8 h 25 ; 99.1033 indique que le 
train arrive à 10 h 33 et s’arrête définiti- 
vement. 

Quand tout l’horaire est inscrit, le pro- 
gramme affiche : Horaire complet. 

On utilise en outre le symbole O pour indi- 


quer que le train considéré ne circule pas sur 
le tronçon de voie où est situé une gare don- 
née et le symbole 9999 pour indiquer que 
le train ne s’arrête pas à la gare considérée. 
« B » est la partie permettant d’obtenir l’af- 
fichage complet de l’horaire des 9 trains. 

« C » est la partie permettant la recherche 
des trains que l’on peut emprunter au départ 
d’une ville donnée à partir d’une heure don- 
née. Le programme affiche la suite des trains 
possibles (heures et symboles identifica- 
teurs). S’il n’indique rien, c’est qu’il n’y a plus 
de trains en partance à partir de l’heure indi- 
quée. A noter que « C » n’indique pas si les 
trains affichés desservent ou non toutes les 
gares. Pour s’en assurer, il faut revenir à 
« B ». 

Nous vous indiquons ci-dessous le listing du 
programme, un exemple d’affichage et des 
feuilles de recherche. 

A. BOISRAYON 


5 SPRINT M 

74: D=10C>B: E=lü 

lia 

* CI N"T T. 1D9+- 

RETURH 

1 > : GHSUB 7: 

6 : PR INT 

PR INT AfKE>i 

ï===i=: l 

” — > ,, SAC33> 

RETURH 

75: IF C=9GÜSUB 

7s IF 

5: GOTO 77 

9 > + < A CD) ,=a 0>~ 

76: GOTO 73 

IGOTO 9 

77: IF B =9 G US U B 

S: US ING " 888.8 

6 : END 

Mttt“ s RETURH 

78 s GOTO 71 

USING s 

80 : D= : 1 0* C C - 1 > + B 

RETURH 

s IF D< 10LET 

; 0 s "A" US ING "Stt 

D-lOO+B 

88 . 8888 "sAsK 

85: FRI NT flr(E)i 

10>= n NU!T£Rû” 

ACD> 

; 1 : !, A ,! USIMG "88 

90SNEHT C 

atr.mir ;a$<: 

95SNEXT B 

10}= “NUMERO" 

100 : END 

■ =*: FOR r*2TC? 10 

110: "0':U3ING : 

SïE-lOC: IMPOT 

INFUT Fi 

rtf ■■ E .■ 

PRINT ‘'APRES 

:.7: MENT C 

ï u ;fmnput G 

. SsJSEEP? 

$ s PRINT “9 " 

2 s 

5 6 $ s 008UB 5 

i : 33 "B*- 

115: FUR C-2T0 10 

-.<j: D-l O'; 4 * B: 

1 20 : E" 1 0 C 

INPU~ P l ; c B ) î 

125: IF A* CE >* 6 * 

PAUSE rs *7=0 

GOTO 131 

~Qî ü-Ol s D s =i0C+* 

130: NE K T C 

E : IMPOT A<B> 

131 s OE-ÎÜ 

a PAUSE H 

134: 33=0 ' 

15 . tp i>9GCi'TD 5 

135: B=B>1 : B^OB: 

5 

H= v A C B > - 1 NT 

• 0: GOTO 40 

ACD)?*E4 

25 J BEE F’ 3 

1445 IF < H=Ü > ■+ H= 

IF B- 90 UT ü 6 

99991 -K INT A 

31: GOTO 21 

GOTO 150 

95 : PR T NT “HOP. AI 

145: I r H; -F GOTO 

RE COMPLET 1 ’ s 

: 

END 

150: Ïf“b- 9GUT0.1 

70: “B"B=0 

TC 

71 : B=B*T : B-lOG* 

152: PRINT “TERNI 

B: PRINT A$< t 

NE" : G0SUB 6 : 

o>? >*;a$< 

END 

D > : 0=0 


T3 : C=0*T 



153: PRINT USING 

DAN I S — > 

5. 1130 

“ 88 t. 88 f 8 ,i ;A 

NIK 0 P-- ■> 

99. 1242 

<D>:F=100+B: 




PR INT A*CF>s 

•— T < r*;-r 


NUMERO — >N08 1 1T J 

2 . « 1735 

TASSI *> 0.O515 

H081 ITT 

DR0C — > ■ 2.0520 

2.0945 

F R R U — > 2 . Cl 6 î 2 

N 09 09 T T 

3 1 DUR — > 5.0708 

2. 1242 

USIS — > 2.0735 

S 085 1 TJ 

CLOU— > 2.0825 

TERMINE 

TIROS — > 2.0840 

ssssssssssssssa 

DANIS— > 5.0915 


NIKOR — -> 99. 1000 



APRES: 812. 

NUMERO — >S084?SF 

A TI RUS 

TASSI — > 0.0650 


DRCJC — >9999. 

2.0840 

FARU — >9999. 

NOS HT J 

SI DGR — > 5.0730 

2. 1352 

USIS — >9999. 

30851 TJ 

CLUB— >9999. 

TERMINE 

TIRCiS — >9999. 

s ===--=:==: -,-s sss s s =: 

DANIS — > 5.0845 


NI KO R — > 99.0920 



APRES: 1130. 

NUMERO — >N0905T J 

A DANIS 

TASSI — 0.0705 


DR UC "-->9999. 

5. 1130 

FARU — > 2 . 0304 

N0909TJ 

SI DUR — > 2.0834 

5. 1417 

USIS— >9999. 

S0851TJ 

CLUB— > 2.0322 

5. 1907 

TI RUS — >9999. 

H0931SF 

DANIS — > * 5.* 1015 

TERMINE 

NIK0R — > 99.1105 

2. ^ ~ -i ï-.iz i: =i 

NUMERO-- >N0909T J 


TASSI — >0. 


DROC — >üu 


FARU — >0 



S I Dü R — > 2. 0915 

U SI S — > 2.0945 

CLUB — > 2. 1025 

TIR0S — >9999- 
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MEMORY MAP 


Voici un rappel des principales adresses que 
vous trouverez dans la memory map. 

Carte mémoire de la machine 


8000 


0000 

-<u- 

'<L> 



O) 

'<D 


2000 

i_ i 

Cl 

CL) 

début présumé 


C 

Q 

du BASIC 

4000 

N 

ROM 


BASIC 
24 ko 


I Répétition tous les 2 ko 
des 2 premiers ko se trouvant 
en &B800 


B800 

B831 

Q5DÜt 

C698 

C6A0 

C7FF 

F800 

F8FF| 


Réserve 


Zone programme 


Mémoires fixes A / 




Zone système 


h ROM- 


Zone système 


&0000 

&1000 

&2000 

&3000 

&4000 

&5000 

&6000 

&7000 

&8000 

&9000 

&A000 

&B000 

&C000 

&D000 


&E000 

&F000 

&FFFF 


RECAPITULATIF DES PRINCIPALES ZONES DE LA MEMOIRE RAM ROM 


Système ROM 24 K octets de 2000 h à 
7 FFF h 
User RAM 

fixed memory area 208 octets de C5D0 h à 
C69F h 

réserve area 48 octets de B800 h à B82F h 
programme/date area 3486 octets de B831 h 
à C5CF h 

System about 500 octets de C6A0 h à C7FF 

h et de F800 h à F8FF h 

Intéressant : les tableaux de mots réservés 

de 4130 h à 43DF h — les indicateurs en 

&F83C h et &F83D h 

Buffer (80 octets) de &C7B0 à &C7FF 

Début et fin de la zone programme 

Dans la mémoire système, les adresses sont 
notées à l’envers comme en Z80. 

La zone programme est close par 2&FF qui 
bornent la zone BASIC. Le premier détermi- 
nant la zone de texte est un &B830 et est 
stocké en 2C6E2, &C6EL, le second &FF 
varie suivant la longueur du programme et 


est stocké en &CGE4, &C6E3. 

On peut protéger un programme en faisant 
NEW puis POKE &B831 &EO. La MEM vaut 
3486, on ne peut plus modifier le pro- 
gramme mais il est listable et exécutable. 
Si l’on veut récupérer un programme nor- 
malement après un NEW, il faut poker à 
l’adresse système précédente les limites de 
la zone à récupérer en pensant à effacer le 
FF NEW. 

Ex. : prog situé de &B830 à &B96F, soit une 
MEM de 318 octets (OBTM-TEXT-1) 

NEW 

On le récupérera en faisant : 

POKE &CGE1, &30, &B8, &6F, &B9 
POKE &B831, &E0 

Dans le prochain Bulletin, nous nous attar- 
derons plus sur ces adresses intéressantes. 
Mais en attendant et pour revenir à des ren- 
seignements plus standards, voici comment 
sont enregistrés les caractères et token du 
1251. 


CODE ASCII INTERNE Dû 1251 


î 

0 

1 

2 

3 

4 

5 , 

6 

7 

8 

9 

A 

B 

C 

D 

E 

• F 

3 

SP 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS 

1 


SP 



! 


% 









& 

2 


SP 


} 

! 


% 


( 

) 

* 

+ 


- 


& 

3 

( 

) 



= 

+ 

- 

* 

/ 

CS 

CS 

CS SPACE 

CS 

? 

S s 

CS 

4 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 



L 

M 

- 

SP 

5 

SP 

A 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

0 

5 

P 

Q 

R 

S 

T 

U 

V 

W 

X 

Y 

Z 

M SPACE 

M SPACE 

M SPACE 

M SPACE 

M SPACE 

7 









M SPACE ' 

M SPACE 

M SPACE 

M SPACE 

M SPACE 

ASC 

VAL 

LEN 

3 


AND 




OR 

N0T 

SQR 

CHR$ 

COM $ 

INKEY$ 

5TR$ 

LEFT$ 

RIGHT $ 

MID$ 


3 

T0 

STEP 

THEN 

RAND0M 


WAIT 

ERR0R 



KEY 


SETC0M 



ROM 

LPRINT 

K 

sirs 

COS 

TAN 

ASN 

ALS 

ATN 

EXP 

LN 

L0G 

INT 

ABS 

SGN 

DEG 

DMS 

RND 

PEEK 

B 

RÜM 

NEW 

MEM 

LIST 

C0NT 

DEBUG 

CSAVE 

CL0AD 

MERGE 

TRON 

TROFF 

PASS 

LUST 

PI 

0UTSTAT 

INST AT 

c 

GRAD 

PRINT 

IN PUT 

RADIAN 

DEGREE 

CLEAR 




CALL 

DIM 

DATA 

ON 

0FF 

POKE 

READ 

D 

IF 

FOR 

LET 

REM 

END 

NEXT 

STOP 

GOTO 

G0SUB 

CHAIN 

PAUSE 

BEEP 

AREAD 

USING 

RETURN 

RESTORE 

E 

















F 



i 
















LES VARIABLES > ll^M 


Sur la 1251, on note deux types de varia- 
bles, voyons-les en détail. 

I Les variables fixes 

C’est-à-dire les variables 
A— Z 

ou A $ Z $ 
ou A (1) — A (26) 
ou A $ (1>. — A $ (26) 


Ces ' variables occupent chacune 8 octets. 
Elles sont stockées Z vers A en C 5 DO, 
voir listing page suivante. 


a) Les variables alphanumériques 

Le premier octet, s’il vaut & F 5 indique que 
la variable est alphanumérique. Les octets 
suivants donnent le contenu de la variable 


en code machine, si la variable a une lon- 
gueur inférieure à 7 alors le dernier octet est 
suivi d’un 00. 

Ex. : (voir aussi page suivante les exemples 
donnés) 

A $ = « MAISONS »/S) C 698 

F5 5D 51 59 63 5F 5E 63 

indicateur variable en code machine 
alphanumérique 


A $ = « TOI »/© C 698 

F5 64 5F 
indicateur alphanumérique 

59 

code machine 

00 5F 
indicateur de fin 

5E 63 

reste de l’ancien contenu 



b) Les variables numériques 

Les deux premiers octets indiquent l’expo- 
sant et les signes de la mantisse et de l’ex- 
posant. Les 5 suivants la mantisse du nom- 
bre contenu dans la variable elle est normale 
en BCD. Le dernier octet est toujours à 00. 
Si la mantisse est négative on ajoute 8 au 
2 e octet. Si l’exposant est négatif on prend 
le complément à 1000 de l’exposant. 

A =1T C698 

0000 31 41 59 26 54 0 

exposant mantisse normalisée en BCD fin 
signe 

exemple : DIM B $ (15,9) * 16 
Nous avons fait CLEAR avant de déclarer 
cette dimension, elle est donc la première 
à être déclarée. 

Ce tableau commencera en & 

C5DO-(15 + 1).(10 + 1 ). 1 6 - 6 
c’est-à-dire en & BBCA 
A partir de cette adresse nous trouverons 
octet par octet. 

D2 0A 03 09 0F 10 

1 2 2’ 3 4 5 

1 le nombre de la variable & 52 + & 80 
car alphanumérique. 

22’ La longueur du tableau + 3 
16 x 16 x 10 + 3 = 2563 ^0A03 

3 La longueur de la seconde dimension 
(dans le cas d’un tableau unidimensionnel 
nous avons ici la longueur de l’unique 
dimension). 

4 La longueur de la première dimension 
(dans le cas d’un tableau unidimensionnel) 
nous avons ici 00. 

5 La longueur des variables (dans le cas 
d’une variable numérique nous avons 08 ici). 
S’entend par longueur d’une dimension l’in- 
dice déclaré. 

Les variables sont stockées dans l’ordre 0,0 ; 
0,1 ; 0,2 ; 0,n. 

Dernier exemple : 

sans CLEAR DIM C $ (4,3) * 1 

Le tableau se trouve en 

& BBCA -(4 + 1) x (3 + 1 * 1’ - 6 = 48048 

& BBB0 

& BBB0 

D3 00 17 03 04 01 00 01 02 03 10 11 
& BBBC 

12 13 20 21 22 23 30 31 32 33 40 41 

& BBC8 

, 42 43 D2 0A03 09 0F 10 0,0 

Les variables A (n) non dimensionnables se 
déclarent automatiquement lors de leurs uti- 
lisations. Elles sont constituées de la même 


manière ; si maintenant on utilise la varia- 
ble A $ (29) nous aurons en posant : 

A $ (29) = « SKI » 

La déclaration A $ (27) et A $ (28) ou A (27) 
et A (28) en même temps, puisque nous ne 
les avons pas encore utilisées. 


Cette variable possède avec elle même sa 
caractéristique numérique ou alphanuméri- 
que donc sa longueur est de 8 octets. 
Nous aurons donc ici : 

& BBB0 - (29 - 26) * 8 -6 = 48018 
c’est-à-dire : & BB92 


avec c? ooyz 

51 00 IB 00 00 08 F5 63 5B 59 00 00 

lettre A 
& BB9E 

3x8 + 3 

(0,0) 

dimension longueur alphanumérique S K I 


00 

00 00 

00 00 00 00 00 00 00 00 00 

& BBAA 



A $ (28) ou A (28) 


00 

00 00 

00 00 00 D3 00 17 03 04 00 

A $ (27) ou A (27) 


Si on utilise une variable A (n) avec ici 
n 29 sans avoir déclaré d’autre tableau 
alors ce dernier se redimensionnera automa- 
tiquement en tenant compte de A (n). 
Exemple ici j’avais un tableau A (29) à A (27) 
si j’utilise A (30) alors le tableau A (29) à 
A (27) est effacé et le tableau A (30) à A (27) 
est recréé et les valeurs sont conservées. 
En réalité A (30) est déclaré à cheval sur le 
tableau précédent et en tenant compte de 


la longueur de ce dernier. 

Si on déclare un nouveau tableau, l’utilisa- 
tion d’une variable A (n) avec ici n 29 est 
impossible : erreur 3. 

Ayant vu comment sont structurées les 
variables en mémoire j’espère que celles-ci 
n’auront plus de secret pour vous. 

En complément de cet article référez-vous 
à votre manuel d’utilisation. 

I.S. 
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LOGITHEQUE 


- BALISTI : de Monsieur FICHANT 

Le calcul des dérivés transversales et verti- 
cales d’une balle soumise au vent. 

- FILTRES : de Monsieur BRCJART 
Calcul de l’ordre d’un filtre. 

- PPCMGCD : de Monsieur VESIGNOT 
Calcul du PPCM et du PGCD. 

- PREMIER : de Monsieur VESIGNOT 
Calcul du nombre premier. 

- PT MER : de Monsieur CHOSSELEP 
Calcul des coordonnées géographiques. 

- BIORYTHM : de Monsieur STERMANN 

- SHANNON : de Monsieur POINSOT 
Calcul de diversité de SHANNON. 

- MASTER MIND : de I.S. 

Jeux. 

- AGENDA: de I.S. 

Plannifier les 26 jours à venir. 

- SIMPLI : de I.S. 

Simplification de fractions et recherche de 
fractions à partir d’un nombre. 

* SECTOR : de I.S. 

Jeux. 

- FACTO : de Monsieur PAGLI 
Méthode du STIRLING. 

-FIX V.l. ; de I.S. 

Arrondi. 

- IMPÔTS : de Monsieur THIBAUT 
Impôts 81. 

- PUISSANCE : de I.S. 

- BALL GAME : de I.S. 

Jeux. 

- CONVERSION ANGLOSAXONNE : de I.S. 
Conversion des principales mesures anglo- 
saxonnes (livre, mile, gallon, fahrenheit). 

- FACTORIEL : de I.S. 

(mantisse complète, très bon à l’exécution). 

- CALCULS PRECIS : de Monsieur 

VESIGNOT 

Multiplication, division, de nombres à plus 
de 44 chiffres significatifs. 


De Mr J-F. CHAPIN : 

- NOTEXMO : Notes externes et moyennes 
utiles aux professeurs pour leurs conseils de 
classes. 

- WEIGHT : Programme de conversion 
anglosaxonne sur les poids. 

- RELATIF : Emploi des pronoms relatifs en 
anglais. 

- MCQ REL : Questionnaire sur les pronoms 
relatifs en anglais. 

- SUPERVI : Verbes irréguliers anglais. 

* TENSE : Test sur l’emploi des temps en 
anglais. 

- MEASURE : (en 3 parties) Conversion de 
distance, change, température, longueur, 
volume. 

De Mr BOISRAYON : 

- CŒF BAL : Calcul du coefficient balistique 
d’une balle de petit calibre. 

- BALARM : Balistiques des armes rayées 
portatives. 

• FACTO : Factorielle formule de Stirling. 

- APPROX : Fraction approximant un réel R. 

- IMPLICI : Résolution d’une fonction 
implicite. 

- WEDINT : Intégration par la méthode 
Deweddle. 

- RACCAR : Extraction d’une racine carrée 
entrée par la méthode arithmétique. 

26 De Mr CAMPAGNE : 


- BANQUE : Gestion d’au plus 25 crédits ou 
débits. 

De Mr BODET : 

- INVADERS : Jeu. 

- BAC : Intéressant de savoir si vous l’aurez, 
en fonction de vos notes actuelles. 

De Mr DARJO : 

- CALENDIER : Imprime le calendrier d’une 
année. 

- SIMON : Jeu, mémorisation de nombres. 

De Mr COTILLON : 

- SOUPAPE : Calculs de soupapes. 

De Mr MULLOT : 

- SERVAC : Service achats, commandes sur 
5 mois. 

De Mr CLOUE : 

- FONC : Traceur de fonctions (nécessite 
CE 122). 

De Mr BARRE : 

- TRI : Méthode de Shell, 70 données. 

De Mr GAY : 

- MATRICE : Calcul sur la matrice d’ordre X 
(X 8) 

• FONCT : Recherche d’une fonction véri- 
fiant des données. 

De Mr TAUZIEDE : 

- DISTAN : Calcul d’une distance réelle sur 
une planète. 

De Mr MADEUF : 

- POLY : Calculs de polynômes. 

De Mr NOËL : 

- TOPOGRA : Relèvement italien, méthode 
de POTHENDT. 

De Mr HAL BARONN : 

- TUYAU : Calcul de la perte de charge d’une 
tuyauterie l’air de secteur circulaire. 

De Mr ZUMMER : 

- POLIDIR : Division de polynô>mes. 

De Mr BRENAS : 

- CLEF DE RIB 

De Mr PIACENTINO : 

- Jeu de la boîte noire. 

De Mr ZUMMER : 

- Naval 1 , Naval 2 : Jeu de bataille navale. 

- Bourse : Jeu de bourse. 

De Mr BALEMETTE Didier : 

- FLECH : Jeu de fléchettes. 

De Mr RAMPAL Guy : 

- SUBROG : Calcul automatique de la tari- 
fication de la facture subrogatoire de la 
Sécurité Sociale. 

De Mr BODET Pierre : 

- TENNIS 

- MAX : Jeu des chiffres et des lettres. 

- NAVAL : Jeu de la bataille navale (contre 
PC 1211). 

De Mr VALLY Bruno : 

- QI : Calcul du QI. 

- PI : Aptitude verbale. 

De Mr BOUTIN G. : 

- ASTRO : Astronomie, Calculs des équi- 
noxes en coordonnée équatoriales. 

De Mr GRESSARD J-M. : 

- TIERCE 

De Mr GAY Thierry : 

- JACKPOT 

De Mr AIUTI Laurent : 

- STATIS : Stratistiques. 


De Mr CHAPIN J-F. : 

- CLASS 82 : Gestion des élèves d’une 
classe. 

- CIRCLAS 

- SELCLAS SECL 2 : Utiles à tous les 
professeurs. 

- FICH DAT 

- STAT DAT 

- AGEFICH 

De Mr SANTARELLI Eric : 

- JEU DE L’OIE 

- JEU DU ROBOT FOU 

- PENDU : Jusqu’à 24 lettres. 

De Mr DELCOURT Alain : 

- ISOLEMENT 

- PROFILES 

- PAYE 

De Mr MORTIER : 

- CA 12 : Destiné aux petits contribuables 
soumis au régime simplifié de la T.V.A. 
(impôts). 

De Mr BALMETTRE Didier : 

- Attaque nucléaire : jeux. 

- L’île au trésor : jeux. 

- Q.I. : jeux. 

De Mr BUSCHINI Philippe : 

- Calcul de fréquence (Thomson). 

- Impédance d’un circuit résonnant série. 

De Mr X : 

- Ordinateur de bord 

- Le château de TIHP : jeux. 

- PRINT : utilitaire. 

- DCA : jeux. 

De Mr DELYS Jean-Robert : 

- Erreur n’est pas comptée : Comparaison de 
prix utile aux ménagères. 

De Mr COTILLON : 

- Calcul d’éléments déprimogènes. 

- Calcul de soupapes de sûreté. 

De Mr MORTIER : 

- Contrôle des CA 12 

De Mr CHAPIN : 

- Jury bac 

- Essay 

- Delib-d (variante Jury bac). 

De Mr J-L. BECHENNEC : 

- Astro 1 : position des planètes. 

- Astro 2 : distances terre soleil. 

De Mr Pierre MALLER : 

- Graph : Dessin de fonction. 

De Mr BOISRAYON : 

- PERAXO : Le programme donne les coor- 
données cartésiennes planes d’une projec- 
tion axonométrique d’un objet spatial défini 
par les coordonnées tridimensionnelles car- 
tésiennes d’un certain nombre des ses 
points. 

- PERCEA : Programme donne les coordon- 
nées cartésiennes planes d’une projection 
perspective centrale ou cavalier d’un objet 
spatial défini par les coordonnées cartésien- 
nes d’un certain nombre de ses points. 

- CRYTOGRAPHIE : de DUSAULT Alain. 

- SPACE INVADERS : de MARTINEAU F. 

- TABLE DE VERITE : de CHAÜVIERE R. 

- COURSE AUTO : de CARASSO Antoine. 

- JEUX DE MEMOIRE : de CARASSO A. 

- TRESOR PROTEGE : de CARASSO A. 

- JULIEN-GREGORIEN : de COÜET P. 

- BANQUE : de COÜET P. 

- REPERAGE AU SOLEIL : de GEBÜS P. 

- STATISTIQUES : de MULLOT G. 

- BRIDGE PREVISION : de DELYS J.R. 

PC 1251 

- PUISSANCE 4 : de MARVIN Johnson. 



’ ITORIAL 


Nous remercions les nombreux MZistes qui nous ont fait parvenir leur réponse à notre enquête du précédent numéro 
et incitons les horribles paresseux qui ne l’ont pas encore fait à les imiter pour que le Club soit vraiment celui de tous 
les MZistes. 

De ces bulletins, de l’ensemble du courrier et de vos coups de téléphone, ressortent plusieurs tendances : 

- Tout d’abord, on nous reproche d’attacher une trop grande importance aux applications ludiques au dépend du scien- 
tifique, du professionnel et de l’utilitaire. 

Pour ce qui est de la logithèque, nous sommes les premiers à le déplorer (bien que j’avoue prendre plus de plaisir à 
tester un jeu vidéo qu’à vérifier l’exactitude de la 5 e décimale d’un programme de résolution du second degré) et nous 
faisons appel à tous ceux qui utilisent le MZ à des fins autres que ludiques à nous faire parvenir leurs réalisations. 
Pour ce qui est du Bulletin, nous allons en tenir compte et publions cette fois-ci un programme de gestion de compte 
bancaire et un utilitaire qui va révolutionner votre BASIC 5060S. 

- (Jne deuxième tendance est la fringale incohersible de demandes de renseignements sur la carte QCJANTÜM MICRO. 
Or, cette carte, qui n’est pas importée par S.B.M. semblerait ne plus être commercialisée par les quelques revendeurs 
qui le faisaient naguère. Si un clubiste ou un revendeur venait nous prouver qu’elle est encore disponible en France, 
cela nous permettrait de secourir tous les pauvres possesseurs de MZ 80K honteusement privés de haute résolution. 
Sinon, et si il y a assez de personnes intéressées, nous pourrions envisager d’en faire venir une certaine quantité 
d’Angletere. 

- Nous avons reçu aussi bon nombre de lettres de MZistes voulant obtenir l’adresse de Clubistes dans leur région, or 
nous ne pouvons divulguer l’adresse de ceux-ci sans leur accord préalable. 

Quelqu’un verrait-il une solution à ce cruel dilemme ? 

Simon CHAGNOÜX 


STRUCTURE 
DU CLAVIER 
MZ80K 


Il est surprenant de constater que la plupart 
des MZistes, bien qu’ils connaissent la struc- 
ture en mémoire de l’écran, ne connaissent 
pas celle du clavier. Je vais donc essayer de 
vous l’expliquer, à la demande de M. Ripp 
de Strasbourg qui voudrait savoir comment 
lire plusieurs touches à la fois afin de réali- 
ser un jeu à 2 joueurs. 

Chaque rangée physique du clavier est divi- 
sée en 2 rangées logiques, chacune compre- 
nant une touche sur 2 de la rangée physi- 
que (ainsi QWERTYCIIOP = 
est divisé en QETUO = et 

WRYIP L 


On sélectionne la rangée en mettant son 
numéro à l’adresse E000H. Et on lit le résul- 
tat à l’adresse E001H, celui-ci doit être incré- 
menté. Et l’on obtient alors 0 si aucune tou- 
che n’est pressée et sinon un code qui 
dépend de la colonne de la touche. 

Voici un petit programme dont nous remer- 
cions l’auteur, M. Beurrier, qui permet jus- 
tement de déterminer ces codes. 


Mémoniques 
LD B,FFH 
LD HL,E000H 
LD (HL), XX 
INC HL 
LD A, (HL) 
INC A 


Hexadécimal 

06FF 

21 00 E0 

36 XX 

23 

7E 

3C 


JR NZ, 02 

20 02 

DJNZ FAH 

10 FA 

CALL 03C3H 

CS C3 03 

CALL 0DA6 H 

CD A6 0D 

LD B,FFH 

06 FF 

CALL 001BH 

CD IB 00 

CP 64H 

FE 64 

JP Z, NNnn 

CA nn NN 

JP 8000H 

C3 00 80 


XX correspond au numéro de la rangée logi- 
que (F(6 à F9) 

NNnn correspond à l’adresse de branche- 
ment en fin de programme, c’est-à-dire 
quand BREAK est enfoncé. 

Soit : 

0000 H pour retourner au moniteur 
1260 H pour retourner au BASIC 5025 
124B H pour retourner au BASIC 5060 
224E H pour retourner au BASIC 7015 
Mais il ne suffit pas de connaître les codes, 
encore faut-il savoir les exploiter. A priori, 
on pourrait penser qu’il suffit de POKE en 
E000 H (57344) le code rangée, d’ajouter un 
PEEK ($E001) pour connaître la touche 
pressée. Mais, en fait, c’est impossible car 
le BASIC éprouve un plaisir sadique à modi- 
fier ces deux octets entre l’interprétation de 
ces deux opérations (les personnes voulant 
lui trouver des circonstances atténuantes 
suggéreront qu’il teste si BREAK est en- 
foncé). 

Nous voilà donc contraint de faire un petit 
programme en langage machine, par 
exemple : 

LD HL,E000H 21 00 E0 

LD (HL) rangée 36 NN 

INC HL 23 

LD A, (HL) 7E 


INC A 3C 

LD (RESÜLT), A 32 XX XX 

RET C9 

qui range à l’adresse XXXX le numéro de 
colonne de la touche appuyée sur la rangée 
NN. 

Mais l’enquête du précédent numéro ayant 
montré qu’un certain nombre d’entre vous 
voulaient des exemples, voici un cours pro- 
gramme de dessin qui a l’originalité de tra- 
cer les diagonales si l’on appuie sur deux 
touches à la fois. 




MEA CULPA 




Dans le dernier numéro, nous avons publié 
un programme COURSE qui contenait, au 
grand dam du BASIC 5025, un RESTORE 
numéro de ligne, pour les utilisateurs de ce 
BASIC, il faut : 

- supprimer les lignes 3. 4, 5 

- remplacer à la ligne S000 RESTORE 5040 
par RESTORE tout court. 

- modifier 4010 comme suit : 

4010 POKE 17828,0 : G ET RS : D = O 
Nous rappelons à tous les utilisateurs de MZ 
80A qu’il est nécessaire de taper CTRL avant 
d’exécuter un programme conçu pour le 
80K. , 


LABYRINTHE EN 3 DIM. 


PRINT'E" 

'■ f- " nnnnnnnnnnnnnnnnnnnnnnnnn n 

UUUUUUUUUUUUUUUUUUUUUUKUU 

9 DATA53249, 5341 3, 53536 , 536 1 S 
5 ' DAT H 53268 , 53424 , 5354 1 , 536 1 9 

O D IMCL',2, 4 > : FOR I = 1 T02 : FOF:J = i T04 : READCL HEXT J , I 

5 DATA20, 12.. 6, 2 
ü F OR I = 1 TQ2O0 : TU=RHD C 1 > : HEXT 

5 U =6+1 HKRHD ( 1 > +5 > : LJ =6+ 1 HT ( RHD ( 1 > +5 > : DR= I HT < RHD ( 1 >+4+1 > : G I =L I : C J= 1 1 -L-T 
y D I MDU •; 4 > : FOR I = 1 T04 : READDW ( I > : H EK T 

0 DIMDL <2. 2> : DL( 1 .. 1 > = 1 19: DL<1 , 2> = 1 18: DL<2, 1 > = 1 18: DL<2, 2> = 1 1 9 
:■ D I MUL < 2 > : UL < 1 > =6 1 s UL < 2 > = 1 1 3 

J D I MDR 4 > : FOR I = 1 T04 : READDR < I > ; HEXT 

3 DATA2, 3.-5.. 7 

1 DATA 1 4 , 1 5 , 42 14,1 9 , 1 9 , 2 , 6,14 , 6 

2 DATA21, 14, 10,21,78, 18, 15,21,21,21 
5 DATA21 .21 , 14,5, 10, 19,2, 15,21,21 

4 DATA?, 3 , 35 ,19,19,6,35, 

:• i. H T H 1 9-.J ,14,1 ü , 1 o ,15,1 U5 , 35 , 1 0 , 1 L'i , 6 
" DATA 79 , 5 , 10, 1 0 , i 0 , 2 , 1 9 , 2 , 1 8 , 1 5 

3 DATAI 4, 18, 18, 19, 10,3,42, 7, 19,39 
? DATÀ35, 10,2,6,70, 15,21,21,70,6 

3 DATA79, 10, 15,35, 19, 10,5,5, 19, 15 
i DATA42, 14, 13,2, 10,15, 14, 10, 18,6 
1' DATA21, 35, 38, 21, 14,10,5,10,6,21 
: DATA35, 10,6,21,21, 14, 18, 6,21,21 
1 DATAI 4 , 6 21.21 21 . 35 . 6 . 21 , 21 . 21 
f DAT A 2 i , 1 85 , 2 1,21 , 35 , 1 8 ,15,21 , 21,2 1 

• DA TA 3 5 • 1 3.7.35, 10. 10. 18, 15, 185,21 
’ DATAI î . 1 3 . 5 - 6. . ! 4.6,11.18.10,15 

DA PA 2 : • 1 4 , 6. ■ 1 05 .21,21.35,1 0 .18. 6 

* DA 7 A 2 1 , 2 1,7, 1 8 ,15,21,1 4 , 1 8 , 38 ,21 
; AT A 35 .17. 75 10 . 18 . 3 . 2 ■ 1 o . 10, 15 
DATAI 4, 18, 10,6,21, 14,2, 18,6,42 

: DATA21 , 14,6, 21, 35, 15, 21 , 42, 21 , 21 
: L A i A21 , 12, 21 , 21,1 4 ,2, 15, 21 , 35, 15 
DAT F i 7 , 2 , 3 , 2 1,21 , 21,1 4 , 3 , 1 4 , 6 
: . AD] 21 . :i_. 1 05, 21 .21^:. DL'l .35 .15, 21 

" DA T A75 , >0 1 0 , 18 . 5 ■ 1 Y._2~ 1 ù~ F 21^ 

DATAT*. : , D -3.14.5, 5 , 5 , 1 8 , 6 
.0 l-ATAUC 70. 12.105,75,10.10.70,70,15 
3? FDM *= INSTRUCTION =+ 


3 I f r < A3 - " U " > + ( A 1 < BD > THEHA 1 =fl 1 +■ 1 : GOT Q9 1 8 
0 IFTH---0THEH758 

0 DR -DR i- TH: TFDR-O THEHDR-4 
3 1FDR : -i THEHDR=DR- 4 

3 TN=ü: PR I HT "S" : PÜKE59555, 0: GOT0399 

3 ; AMS ::lI,LJ> -DR < DR >=INT< MS < L I , L J > /DR <DR>> THENMUS I C " C8 " : GÛTQ758 

1 I FDR--1 THEHL I =L I - 1 : I FL I =0THEN90O 
i I FDR=2THEMLJ =L J + 1 

i IFDR=3THENLI=LI+1 
i I FDR~ 4THEHL J =L J-~ 1 
•; 0010848 

i FOR I - 1 T 0208 : P0KE45 14, IHT( RHD, U > +58 > : USR < 63 > : HEXT : USR < 7 1 > 

! PR I HT "2" ; 

i 0HM2G0SUB1 ISO, 1408, 162Ù 
i PRIHT"EE2S2BSEa"?S$; 11 DEBUT " 

I PRIHTST; "CO-ORDS 
i FRI HT : PRIHTS4U " ( " ’ C I î " , " 5 C J ; ,l >" 

PP=53207+80+CI+2+CJ 
I F ( H 1 < 2>+CLI=0> THEHPOKEPP , 282 

I F AT = " U " THEHFOR 11 = 1 T03889 : HEXT 1 1 : FF: I HT " E “ : G0TO300 

PR I HT : F'R I HT : PR I HTST 5 “ Ter.PS : - " 5 U AL M I DT ( T I T , 3 , 2 > > î " rû ns " 

PR I HT : PR I HT : PR I NT ST ; " 3233 Une aut r e Pa rt i e ? " 

GETAT: IFAT=" "THEM965 

I FhT= " 0 " THEHPR I HT ST ; " ou i " : A 1 =8 : FOR I = 1 TO580 : HEXT : RESTORE : GOTO 1 

PR IN TÔT? "non": END 

REM 

0 C 1 =CL <1 , CA > + <5 -CA > +41: C2=CL < 2 , C A > + < 5-CA > +39 : WH=DU < CA > -2+ < 5-Cf 
5 FOR I =0 1 TOC 2: POKE 1-48,60: HEXT I 

0 FOR I =0TÜWH : POKEC 1 *49+ 1 , UL < 2 > : PÛKEC2+40+ 1 , UL <1>: HEXT 
3 FOR I =0 1 +48+ b J H T 0 C 2 + 4 0 + W H : POKE I +48, 1 1 2 : HEXT 
0 GOT0780 
0 REM 

0 SI=TI : SJ=TJ 

3 I FOU= 1 THEHS I =S I - 1 : 1 FS I =0THEH38 1 
3 I F0U=2THENS-J =S J + 1 
3 IF0U=3THEHS 1=81+1 
3 TF0U=4THEMSJ=SJ-1 ■' 

3 TU=MS S I , SJ > ••'DR ( DR > 
j I F I HT 'i TU > < DTUTHENGOT 038 1 

1 Dl.-J=DW ( CA > -2+ c; 5-CA > : CL=CL SD , Ch > +48+ (. 4-CA > : DM=3-2+SD 
i FOR I =CLTOCL+DM+ ( 4-CA > STEF'DM : POKE 1 , 60 : HEXT I 

i I = I + < 37+2+SD > : IFCA=4THEH 1 1 68 

? TU=I : FOR I =TUT 0TU+48+ (DW- 1 > STEP49: ROKEI , ULCSD) : HEXTI 
i TU= I : FOR I =TUTOTU+ ( -DM > + C 4-CA > STEP-DM : POKE 1,112: HEXT 
I GOT 038 1 


: FOR J=1 T05 : FOP I = 1 T05 : MUS I C "-DtuEO " : HEXT I : FOR I = 1 T05 : MUS I C "-DÛ_Cü 


OU=Dk i- C 3 -••2+ SD > : I FOU=0THEHOU=4 
I FÜU=5 ThEMÛU= 1 
TU=MSai,TJ>. -DR cou: 
lFIMT'.T'.'i T "T HEM 1850 




:0 ' DU OA > -2 
■4-CA ITEF 1 
- ..[« _m + 2t 


1 1 80 PR I HT "ttïïïlïïïiïltliitl ^ ï* î'* 

1 1 80 F' R I NT "13 13 13 151 13" 

1280 pr i ht "Ki ® ta ® mmm 13 mm 13 " 

1210 PR I HT "13 13 13 13 13 El 13 13" 

1220 PR I HT "13 13 13 1****1*3 1**I 13 13" 

1238 PR I HT "13 13 13 13 13 13" 

1240 PP I HT "13 13 1» 1*****13 13 13 13" 

1250 PR I HT "13 13 13 13 13" 

1260 pr int "13 mmmm mmm t3 ®" 

1270 PR INT "13 13 13 13 13" 

1280 PR I NT "15***1*151 13 13 1****Ï5*3 13" 

1298 P R I HT "13 13 13 13 13" 

1300 PR INT "13 1**3" 

1310 PR INT "13 13" 

■ius i c -.DcLtCü 1.520 print-t****! mm i 5 *t ***** 151*1 " 

1330 PR INT "13 13 13 13" 

1340 PR I HT "Ëi5i*l3 13 13 Wmmmm 13" 

1550 PR I HT "13 13 13 13 13 13" 

1360 PR INT "13 11*13 13 !*i*13 13 1511**13" 

1370 FRI HT "13 13 13" 

1580 PRi\\T"wmmimmmmmmm'' 

1390 RETURH 

1400 PR 1 4IT "1*1111*311131513 

1410 F’R I HT "13 13 É ®" 

: I , J > : HEXT J , I , X 1 420 PR I NT "13 f*i**3 1*1*13 1*13 13 13 " 

1438 PR INT "13 13 13 13 13 13" 

1440 PR I HT "13 13 1*1*1*13 13 f**i*3 13" 
1450 PR I HT "13 13 13 13 13 1:3 13" 

1460 RR I HT "13 13 13 1*13 13 13 13 I**i:f3" 

1479 FRI HT "13 13 13 13 13 153 13 13 13" 

1488 RR I HT "13 13 13 13 1*513 13 13 13 13 13" 

1490 PRIHT'T3 13 13 13 13 13 13 13 13" 

1580 PR INT "13 13 13 151*515151*3 13 151*3 13" 
1518 PR I HT "13 13 13 13 13" 

1528 PR I HT "13 151****15151*51:1513 1*5151*3" 
1538 PR I HT "13 13 13 13" 

1540 P R I HT "151**51*513 13 13 13 1*151*3 13" 
1530 PR I HT "(3 13 13 13 13 13 13" 

1560 FRI HT "13 E51*****3 13 f5**5H3 13 13" 

CI , Ul_'.'SD> : HEXT 1578 PR I HT "13 13 13 13 13 13 13" 


: POKE I,DL <80, 2>: HEXTI 
+DW < CA > -408TE.P4Ü 


1 : I FT I r O T 1 ID iPÜKECL (1,4 > 


.3, ;ENTJ=TJ+ 1 
y:'HEHTI=TI » 1 
•1THLHTJ--TJ-1 


.HT: RR II |T64 5 "G^ucn* 
F IHTST: " J = J . cite " 

" : : IT . 4 : "F r : j 
21 HT 640 " ! ! -IT-,' ï i 


■ IriT: pRi: iT AL 
i'| 4 -- '* *■ rflEH7 c 

THDiTH - i 
. . U. i i A A , 1 

TrCHTIDD 


1589 PR I HT "13 1*151*3 13 151**513 13 13 13" 

1590 PR INT "13 13 13" 

1 608 PR I HT "151****l*515î*lf*ïi*5i*51513 " 
1610 RETURH 

1620 PR INT "15151***51*1**3 151*****1513 " 
1638 PR I HT "13 13 13 13 13" 

1648 PR I HT "13 13 151*3 13 13 13 15**1513 13" 

1650 PR INT "13 13 13 1313 13 13 13 13" 

1660 PR INT "13 13 13 13 151**13 13 13 13 13" 

1670 PR I HT "13 13 13 13 13 13 13 13" 

1680 PR I HT "15151**3 151513 13 13 13 1515*1 13" 

1690 PR 1 HT "13 13 13 13 13 13 13" 

1708 PR I HT "13 13 151 13 13 151 151 13 13 13 13" 

1710 PP I HT "13 13 13 13' 13 13 13 13 151 13" 

1728 PR I HT "13 15*151*1 153 151 13 15**1 151 13" 

1738 PR INT "13 13 13 13 13" 

1719 F'R I NT "13 !5****i35ï*3 15**45**513 F' 
1750 F’RINT"l5l 13 1 

1760 PR I HT "151 151 151*3 (****i*I5*****l 1 " 
1778 PR I HT "13 151 151 151 13 13" 

1780 F'R I HT "1*5151*3 151 13 15*13 15*15**3 13" 
179Û PR INT "13 13 13" 

1800 PR I HT "13 15**1 1*1*151 13 13 1**1 13" 

18Î0 PRIAT "13 13 13 13 13 13" 

1 820 PP 1 1 T "l:*:*:**i:*i::l5ï**:*ï:*?ïiS:* : *l:**3 



En conséquence, n’oubliez pas le signe 
« - » devant la valeur de votre salaire. 
Bien entendu, le programme rétablira la réa- 
lité en ventilant en débit ou au crédit la 
valeur de votre opération. 

3.1 - Si vous faites une erreur 

3.1.1 - Entrer l’opération inverse pour annu- 
ler, puis la bonne opération. 

3.1.2 - Vous pouvez aussi en mode direct 
après un SHIFT BREAK, forcer les valeurs. 
Variables concernées : 

NO$ [Q(M),M] nom Q[M] : nbre d’opérations 
Nü$ [Q(M),M] numéro M : numéro du mois 
VA [Q(M),M) valeur 
S Solde bancaire 

V Solde réel 

Le solde réel est calculé à partir de la rubri- 
que : ENTRER DES CHEQUES. 

Le solde bancaire est calculé à partir de la 
rubrique : POINTER DES CHEQUES. 
Lorsque vous sortez du programme par un 
SHIFT BREAK, faire un RUN 200 pour 
retourner au MENU. (Ne jamais faire un RUN 
car toutes les variables sont effacées des 
mémoires). 

4. Pointer des chèques 

En cherchant sur votre borderau bancaire, 
indiquez à l’ordinateur si l’opération a été 
réalisée en banque : 

« O » pour OUI 
« N » pour NON 

Le GET ayant été débloqué par un POKE 
10407,0, il faut répondre par impulsion car 
si on laisse traîner le doigt sur la touche cela 
va vite... parfois trop ! 

En répondant « OUI », on ajoute au numéro 
du chèque un blanc et une * (ex. : 32456 *) 
Si vous faites un erreur : répondre OUI alors 
que c’est non (voir rubrique 3.1). 

5. Rechercher des chèques 


5.3 - Par la valeur : 8 symboles maxi 
Donner la valeur sans préciser si le chèque 
est pointé ou non. 

6. Contrôler un mois 

Récapitule toutes les opérations du mois 
désiré. Donne aussi le solde bancaire et le 
solde réel. Pendant l’affichage, vous pouvez 
en enfonçant la touche « » revenir au 
MENU. 


7. Enregistrer des données 

En fonction de la cassette que vous utilise- 
rez, il sera nécessaire de modifier le chiffre 
du compteur indiquant la valeur de départ 
de votre fichier (voir 1). 

ATTENTION : il arrive parfois que lors de 
cet enregistrement, l’ordinateur affiche une 
syntaxe erreur... ! Ce n’est pas grave : à vous 
de trouver le bon remède... (eh oui, c’est cela 
la vie du Club...). 

Quant à moi, j’ai remédié à cet inconvénient 
occasionnel de la manière suivante : 

1) Replacer la bande de votre magnéto- 
phone à la valeur de départ du fichier. 

2) Faire un RUN 200 puis appuyer sur la tou- 
che « 5 » et recommencer l’enregistrement. 
Cette fois, c’est sûr, cela se passera bien. 

8. Effacer un mois 

Efface les opérations d’un mois pour les chè- 
ques pointés uniquement. 

Cela permet pour ceux qui ne voudraient pas 
archiver (ou après l’avoir fait sur une autre 
cassette) de n’utiliser qu’une cassette pour 
la gestion en cours. 

Cela permet aussi de récupérer de la place 
en mémoire car pour ce logiciel, ce sera un 
problème non négligeable. 


HZ 80 K 

LOGICIEL 

BANQUE 

Gestion du compte personnel sur MZ 80K 
(Programme en BASIC) 

Logiciel réalisé par M. Patrick ROSE 
Le Plessis-Trévise 

1 . Avant l’utilisation du programme, 
vous devez : 

1.1 - Modifier le numéro du compteur de 
votre magnétophone afin de faire démarrer 
le fichier sans écrire sur le programme 
(adresse 5030). 

(Faire un essai d’enregistrement afin de 
modifier cette valeur ; celle-ci dépend de 
votre cassette. Il est préférable de commen- 
cer le fichier après un blanc sur la bande 
pour éviter tous problèmes.) 

1.2 - Compléter : (Adresse 210 et 220) 
Compte bancaire n° 

De Mme et de M. 

1.3 - Modifier si besoin est la valeur du 
dimensionnement des variables : (Adresse 
10) ; ainsi que du test de servant à limiter 
le nombre d’opérations, (Adresse 1360). 
DIM NO$ (80,12) Nom du chèque 
DIM NU$ (80,12) Numéro du chèque 
DIM VA (80,12) Valeur du chèque 
avec 80 : Nombre d’opérations mensuelles 

12 : Numéro du mois concerné 
Disponibilité mémoire : 
avec 48K de MEV : Nbre d’opérations 80 
avec 32K de MEV : Nbre d’opérations 40 

1 .4 - Transférer ce programme sur une cas- 
sette audio de 2 x 45 mn ou 2 x 30 mn 
afin d’enregistrer sur une piste le maximum 
de données. 

On pourra après plusieurs mois voir une 
année (selon le nombre d’opérations totales), 
archiver la cassette et en prendre une autre. 
Pour ce transfert, faire un auto-RCJN, c’est- 
à-dire : POKE 10682,1 : SAVE « BANQUE » 
Cela permettra de charger les données auto- 
matiquement sans passer par un RUN. 

2. A quoi sert ce programme ? 

Il permet de vérifier l’état de vos finances en 
exécutant en mode conventionnel la tenue 
de votre propre compte en banque avec rap- 
prochement bancaire (solde réel et solde 


bancaire). 

Il offre 6 possibilités : (Menu) 

* ENTRER DES CHEQUES (1) 

* POINTER DES CHEQUES (2) 

* RECHERCHER DES CHEQUES (3) 

* CONTROLER DES CHEQUES (4) 

* ENREGISTRER LES DONNEES (5) 

* EFFACER UN MOIS (6) 


Quelle que soit la rubrique choisie, il faut 
entrer le numéro du mois (1 à 12). 

3. Entrer des chèques 

Un chèque est défini par : 

- son nom : 7 symboles maxi (blanc et ponc- 
tuation compris) 

- son numéro : 8 symboles maxi (y compris 
le « . » ! 

- sa valeur : 8 symboles maxi (99999.99) 
Pour la commodité du travail, il nous a paru 
satisfaisant de considérer les entrées en 
valeur négative car elles sont (malheureuse- 
ment pour moi !) plus rares que les sorties. 


5.1 - Par le nom : 7 symboles maxi 
Permet de retrouver un chèque mais aussi 
de connaître les dépenses du mois pour un 
poste. (Ex. : Essence dépensée par mois). 

5.2 - Par le numéro : 8 symboles maxi 
Pour un chèque pointé, il n’est pas néces- 
saire de tenir compte de T*. 


9. Nota 

Lorsque l’ordinateur attend une réponse de 
votre part, en répondant « », vous retour- 

nerez au MENU. 

Maintenant, je souhaite que ce logiciel vous 
laisse plus de loisirs pour utiliser votre MZ 
80K à d’autres fins. 
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LOGICIEL BANQUE 


NZ80K 


5 F'OKE 1 0 1 67-, 1 : F'OKE 1 0467 , 0 

[0 DIM NO#C30,12>,NU#C80, 12>,UAC80, 12), M#C 12> vQC 12) 

15 FORI = 1T012: Q< I > = 1 : N EX TI 

20 REM LECTURE FICHIER-—- 

39 RÜPEH "BANQUE" , 

49 FORM=1T012 
45 ÎHPUT TQCM) 

50 IFQCM>=1THEH90 
60 FORI=1TOQCM)-1 

70 I NPUT/TNO# C I j M) , NU# (I,M) ; Ufi ( I , M > 

30 NEXTI 
30 HEXTM 
. 100 IHPUT.- T SU,' 

110 CLOSE 
112 TEMP03 

1 1 5 MUS I C "“C5R7R2R 1 fi3“C-DG8R0G3A#fi5“F6R0TF3 " 

118 MUSIC ,, -E”C“D3rc.2" 

119 MUSIC"T3fi7" . 

200 REM MENU D "ENTREE 

285 PR I HT " E " : GOSUB 1 0088 

210 PR I HT "GESTION BfiNQUAIRE DU COMPTE N" 0000000880" 

228 PR I NTT ABC 7) ? "DE MM X.XXXXX ET M Z.ZZZZ." 

238 F‘R INT '.GOSUB 18080 

248 PR I HT" S88ENÏRER DES CHEQUES. (1 ) . " 

258 PR I HT' "BPO INTER DES CHEQUES C2>. " 

268 PR I HT" BRECHERCHER DES CHEQUES. ... (3> . " 

270 PR I NT " SCONTROLER UH MOIS <4>. " 

280 PR INT" 8ENREG I STRER LES DONNEES. .. (5) . " 

285 PRINT"BEFFACER UN MOIS <6>." 

298 PR I HT : GOSUB 1 8808 
380 GET fi# 

318 IFA#=""THEN300 

320 A=UAL<A#y 

330 - 1 F C H >6 > + < fi=8 > THEN308 

348 ONfiGOTO 1 080 , 2088 , 3008 , 4888 , 5888 , 6888 

1008 REM ENTRER DES CHEQUES 

1018 PR I NT " E " ; TAB < 9 > ? " . ENTRER DES CHEQUES . " 

1 028 PR I NT : GOSUB 1 0088: PR I NT " BBBBB3 " 

1038 INF'IJT" ENTRER LE MOIS DE 1 fi 12 : " ; M# : M=UfiL C M# > 

1835 I FM#= %• " THEN208 

1048 I F C M< 1 > + < M > 1 2 > THENPR I NT " SO " : GOT O 1838 
1850 GOSUB9008 
1 1 78 «=53648 : GOSUB 1 1 888 

1188 PR I NT " 13888 " ü TfiB C C 38-LEN < M# < M ) > > -"2 ) ; M# C M ) 

1190 GOSUB 10080 

1208 PRINT"8ENTRER LE NOM, LE NUMERO ET Lfi UfiLEUR DU CHEQUE." 

1218 PR I NT "SS8888SS8S8 " : GOSUB 1 8088 
1228 PR INT "Quand mous avez termine, " 

1238 PR I NTT fiB C 1 4 > ? " t are r Pour le non:UV' 

1248 GOSUB 10080 

1 258 PR I NT " QS8SS0SS8S " ; TfiB C 38 > ; " Op N° " ; Q C M ) 

1268 PR INT "NOM : " 

1278 GOSUB 12080 

1288 I FR$= % " THEN280 

1298 NQ#CQ<M>,H>=LEFT$CR#,7> 

1308 PRINT"BNUM : " : GOSUB 12880 
1318 NU# C Q C M > , M > =R# 

1328 PR I NT " SUfiL : " : GOSUB 12888 
1325 FORT=53888T 053887 : I FF'EEK ( T ) < >47THEN 1 335 
1338 G1=0:G2=79: GOTO 14008 
1335 NEXTT 

1348 Ufi C Q C M > . M > =UfiL C R# ) 

1345 U=U+UfiCQCM> , M • 

1 358 «=53688 : GOSUB 1 1 888 

1368 Q C M > =Q ( M > + 1 : IF Q < M ) =8 1 THEH 1388 

1378 GOTO 1258 

1388 P R I NT " QBBBBOBBBSMes mémoires sont Pleines." 

1398 PR I HT " oeu i 1 1 es entrer la suite sur le mis rrochnin. " 

1408 PRINT"B8TflPER UNE TOUCHE FOUR LE MENU." 

1418 GETT#: IFT$=" "THEN1418 
1428 G0T0288 

2080 REM —POINTER DES CHEQUES 

2018 PRINT"E" ? TABC9) 5 " . POINTER DES CHEQUES." 

2028 PR I NT : GOSUB 1 0808 : PR I NT " CBBBBB " 

2038 INF'IJT "ENTRER LE MOIS DE 1 fi 12 : " : M#: M=UfiLCM# J 
2835 IFM#= "-if " THEN200 

2840 I F •:! M< 1 > + C M > 1 2 THENPR I NT " CO " : GOTO 2038 

2 058 G 0 S UB 9 8 0 0 

2868 «=53648 : GOSUB 1 1 800 

2078 PR I NT " âaaS " ; TfiB < < 38-LEN C M#C M J ;• :■ -'2 > : M# C M > 

2088 GOSUB 10080 

2090 PRINT"CÊST-CE QUE CE CHEQUE P F - F T [RE • û, N ‘ " 

clou pr i nt " bsbs&sssssbs" : güsi 101800* 

2110 FPINT-Q'jand ■ -ous ter ■une-" 

2 1 28 PP [ NT TfiB >: 28 :■ S " t are 
213y G 0 S ij B 1 8 8 8 ü 

2148 FOR I = 1 TOQ < M > - 1 : I FR I GHT# C NU# C I > M , 1 •=‘+"THEN2215 
2145 I F Ufi C I , M > =0THEN22 1 5 

2150 pr i nt " gibssbbbsbbbn- " ; nu# ci , m > , no# ci , m > . u a < i , m > 

2155 F'R I NT " BBBÜPe rat i on N n "; I 
2168 GE TB# 

2178 I FB#= " 0 " THENNU# CI - M t =NU# C I , M > + " # " : S=S+Uft C I , M > : G0T022 1 8 
2188 IFB#="N"THEN 2218 
2198 I FB#= ".tv " THEN280 
2288 G0T02168 

2210 FORK=0TO39: P0KE53648+K, 0: NEXTK 
221 2 FORK = 0TO25 : P0KE53888+K , 8 : NEXTK 
221 o NE- TI 

2228 «= .,3448 : GOSUB 1 1 808 

2238 PR I NT " 0S2îîB8888B8Uous n "avez Plus de chenues a Pointer Pour ce 
2248 PRINT-BTfiPER UNE TOUCHE POUR L.E MENU." 

2258 GETT#: IFT#=‘"‘ rHEN22o0 
2268 GO T 0280 

3000 REM RECHERCHER DES CHEQUES — 

3010 PR I NT " E " ; TfiB C 6 :• ; " . RECHERCHER DES CHEQUES. ' 

3020 PR I NT : GOSUB 1 OOÔO : PR I NT " BBOBCS " 

3830 ÏNF'UT "ENTRER: LE MOIS DE 1 fi 12 : " ; M# : M=UfiL C M# 

3835 I FM#= " -n " THEN208 

3840 I F C Mc 1 H >12.:- THENPR INT 11 SC" : GOTO 3838 

3 0 50 G 0 S U E'90 0 0 

3068 «=53648: GOSUB 1 1008 

3078 PR INT "0888" ? TABCc38-LENCM#<M> :• ‘ 2 > : M#CM > 

3888 GOSUB 18080 

3890 PRÏnT"8B8BF’0UR RETROUUER UN CHEQUE : " 

3180 F'RINT"B8ES. Par le non tarer 1." 

3110 PR I HT "BEE. Par le numéro taper 2." 

'3120 PR INT "BEE. Par la valeur tarer 3." 

3138 GET A# 

3148 IFfi#=" "THEN3130 

3145 I Ffi#= " r, " THEN280 

3158 H="fiL c fi# : I F < fi— 8 ;• + < A := 3 • THEH3 1 38 

3 1 60 ONflGOT 03200 3488 , 3680 

3200 REM PAR LE NOM 

3218 0=0 : «=53608 : GOSUB 1 1 888 

3220 I NF'UT " 0BBBBBBBB8BNÜM DU CHEQUE CHERCHE: " : N# : N#=LEFT # C N# , 7 > 

3238 «=53568 : GOSUB 1 1 808 : PR I HT " (DB8BB " 

3235 I FN#= " r, " THEN200 

3240 PR I HT " 8N0M" ? TfiB C 8 > ? " I NUMERO " , " I DEB IT","I CRED IT 

3258 PR I NT " CO " : GOSUB 1 8008 

3255 PR INT "08888888 "5 

3268 FOR I = 1 T OQ C M > - 1 

3270 IFNÜ#C I , Mi'=H#THEN3290 

3288 G Ci T 0 3730 

3298 I FUA C I , M ■' < 8THEN33 1 0 

3300 PR I NTNO# C I , M > ; TfiB C 8 > : " I " : NU# C I . M STR# < Ufi C I , M > , " I" : GOTO3320 
3310 PR I NTNO#C I , M ? ‘ TAB C 8 > : " I " : NU# C I , M > , " I " , " I " ? STR# C - C UA CI , M :• > 

3328 l.'.l=l.il+Ufi f I . M 1 


3338 NEXTI 

3335 I Fl.i.l=0THEN3355 


3340 GOSUB 10008 SPRINT 

3350 F'R I NT T AB < 1 5 > 5 " BTOT AL= " 5 -W = GOT 03360 
7355 PR I HT “8888 Je n ai ras de cheaue a ce non dans nés nenoires 
.7360 PR I HT " 88T e rm i ne non travail : a vous de jouer!" 

7.765 F'RIHT"BTAPER UNE TOUCHE POUR LE MENU." 

3370 GETT#: IFT#=" "THEN3370 
3380 GOTO200 

3400 REM PAR LE NUMERO 

34 1 0 «=53608 : GOSUB 1 1 000 

3420 I NPUT " B088888BBB8NUMER0 DU CHEQUE : "?H#:D=0 
3425 I FN#= " e " THEN20O 
.7430 «=53568 : GOSUB 1 1 000 : PR I NT " IDB08BB " 

3440 F0RI=1 T0QCM>-1 

3445 L=LENCNU#a,M>> 

3446 I FR I GHT# < NU# < I , M > , 1 > = " + " THENL=L-2 
3450 I FLEFT# C NU# C I , M > , L > =N#THEN3465 
3460 GOTO 3500 


GOT 03365 


3465 PR INT" ONOM " ; TfiB < 8 > 5 " I NUMERO " , " I DEB I T " , " I CRED I T 
3470 PR INT "CB": GOSUB 10000 
3475 PR I NT " Q88888S8 " ; 

3480 IFUAC I , MX0THEN3490 

3485 PR I NTNO# C I » M> 5 TfiBC8> ; "I ";NU#CI,M>, "I " 5 STR#CUfiC I S M>> , "I ":G0T03495 
3490 PR I NTNOt.C I , M > ? T fiB C 8 > ; " I " ; NU#CI , M> , " I ", "I " 5 STR#C-CUfiC I , M> > > 

3495 D=D+1 
3500 NEXTI 
3585 I FD=0THEN3507 

3506 GOTO3510 

3507 PRINT"8888Je ruai po.s de chenue a ce numéro dans nés nenoires." 

3508 G0T03365 

3510 PRINT"888Te rnine non travail : a vous de .jouer!" 

3520 PRINT"BPOUR LE MENU T PIPER UNE TOUCHE. " 

3530 GETT#: IFT#=" "THEN3530 
3540 GOTO2O0 

3600 REM PAR LA UfiLEUR. 

36 1 0 «=53608 : GOSUB 1 1 080 

3620 I NPUT " 0B88O88B8BBUfiLEUR DU CHEQUE : " ; N#: «Z=l : V=0 
3622 I FN#= " THEN200 

3624 N=UflLCN#> 

3625 F0RT=53648T053688s IFPEEKCTX >47THEN3628 

3626 ZZ=200: GOTO 14000 
3628 NEXTT 

3630 «=53568: GOSUB! 1000: PR INT "088888" 

3650 PRINT"BN0M"îTABC8>; ,, l NUMERO", "I DEBIT","! CREDIT 
3660 PR I NT " 88 " : GOSUB 1 0000 SPRINT" 08888888 " ; 

3665 F0RI=1T0QCM:)-1 

3670 I F ABS C UA CI , M > > =NTHEN36?5 

3672 GOTO 3700 

3675 IFUAC I , MX0THEN3685 

3680 PR I NTNO# < I , M > ? TAB C 8 > 5 " I " ? NU# C I , M > , " I " ; STR# C UA C I , M > > , " I " : GOTO3690 
3685 PR I NTNO# C I , M) 5 TABC8> ; " I " ; NUfC I , M> , " ! " , " I " ; STR#C-CUAC I , M> > > 

3690 V=V+1 

3708 NEXTI 

3705 I F V=0THEN3707 

3706 GOTO37Î0 

3707 PR INT "8888 Je n'ai ras de chenue a cette valeur dans nés nenoires." 

3709 QQTO3720 

3710 PRINT"88BTe rnine non travail : a vous de jouer!" 

3720 PR INT "BPOUR LE MENU TAPER UNE TOUCHE." 

3730 GETT#: IFT#=" "THEN3730 
3740 ZZ=0: KZ=0: 6OTO200 
3990 END 

4000 REM CONTROLER UN MOIS 3990 

4010 PRINT"i";TABC 8)5". CONTROLER UN MOIS." 

4020 PR I NT s GOSUB 1 0000 : PR I NT " 888888 " 

4030 I NPUT "ENTRER LE MOIS DE 1 A 12 : " ; M#: M=UALCM#> 

4035 I FM#= " m " THEN200 

4040 IFCMC 1 )+CM>12 jTHENPRINT"B8" : GOTO 4030 

4050 GOSU89000 

4060 Z=0: «=53648: GOSUB 11 060 

4070 PRINT"WS88" * TABCC38-LENCM#CM> > ).-'2> ; M#CM> 

4080 GOSUB 10000 
4090 PR INT "08888" 

4100 PRINT"8N0M H ;TABC8)î"l NUMERO","! DEBIT","! CREDIT 

4110 PR INT "88 "‘.GOSUB 10000 

4111 PR INT "888888888888": GOSUB 10000 

4112 PRINT"Si vous avez fait une erreur!!!" 

4113 PRINT"Pour le nenu tarer la touche '<*■)." 

4114 GOSUB 10000 

4115 A=l:PRINT"88888888 u : 

4120 F0RI=AT0QCM)-1 
4122 IFQ<M>=1THEN4215 
4125 IFUAC I,MX0THEN4 135 

4130 PRINTN0#<I,M)JTABC8>;"I " 5 NU#< I , M> , " I " ; STR#CUAC I ,M> > , " I " : GOTO4140 
4135 PRINTNO#< I,M) ? TABC8> ; " I " ; NU#C I , M> , " I ","l " 5 STR#C-CUAC I , M> ) > 

4140 GETG#:IFG#=‘V'THEN200 
4152 IFI=13THEN13000 
4155 IF I*26THEN 13090 

4157 IF I=39THEN 13000 

4158 I F I =52THEN 1 3000 

4159 IFI-65THEN13000 

4160 IFI*78THEN13000 

4168 IFCI=QCM)-1>+ÇQ<M)>9+Z)THEN 13000 

4169 NEXTI 

4170 GOSUB 1 0000 SPRINT 

4180 PRINTTABC9): "8S0LDE REEL :"ï-U 
4190 IFS>0THEN4210 

4200 PRINT"8S0LDE CREDITEUR : ABSCS>:GOTO4220 

4210 PRINT"8S0LDE DEBITEUR : "5 ABSCSXGOTO4220 

4215 PR I NT " S3S8888BB88MES MEMOIRES SONT A SEC POUR CE MOIS. " 

4220 GETS# 

4230 IFS#*" "THEN4220 
4240 GOTO200 

5000 REM ENREGISTRER LES DONNEES 

5010 PRINT"B"îTABC6); ".ENREGISTRER DES DONNEES." 

5020 PR INT: GOSUB 10000 SPRINT "8888"' 

5030 PR INT "PLACER LE COMPTEUR DU MAGNETOPHONE SUR LE N°30." 

5040 PR I NT " 888880888 " : GOSUB 1 0000 

5050 PR INT "Pour la suite arruyer sur une touche. " 

5060 PR INT "Pour le nenu tarer la touche C*>." 

5070 GOSUB 10000 
5880 GETL* : I FL#= " " THEN5080 
5085 I FL#= " THEN206 
5090 PR INT "088888888" 

5108 WOPEN" BANQUE" 

5110 FORMAI TOI 2 
5115 PRINT/TQCM) 

5120 IFQ<M)«1THEN5160 

5130 F0RI»1T0QCM)-1 

5140 PRimVTNO*< I , M) , NU#C I , M) , UAC I , M> 

5150 NEXTI 
5160 NEXTM 
5170 PRINT/T S, U 
5175 CLUSt 

5180 F‘R I NT " SJ "a i t out en rea i st re soyez t ranau i 1 1 e . " 

5190 PR I NT " 8AU REUOIR ET fi BIENTOT." 

5200 G0T0112 

6000 REM EFFACER UN MOIS 

60 10 PR I NT " B " ? TfiB <10)5". EFFACER UN MO I S . " 

6020 PR I NT : GOSUB 1 0000 : PR I NT " SSSBSS " 

6030 I NPUT "ENTRER LE MOIS DE 1 fi 12 : " ' M# : M=UfiL C M# > 

6035 I FM#= ". 1 * " THEN200 

6040 I F C M< 1 ) + C M > 1 2 > THENPR I NT " QQ " : GOTO 6030 

6050 GOSUB9000 

6068 2=0 : «=53648 : GOSUB 1100© 

6070 PR I NT " 0888 " 5 TfiB C C 38-LEN C M# C M > ) > 2 > ; M# C M ) 

6080 GOSUB 10000 
■6085 L=0 



6090 I F Q < M ) = 1 THEN63 1 0 
6200 F0RI = 1T0CKM>-1 

6210 I FR I GHT $ < HUt < I , M > ? 1) = " + " THEN6240 

6220 NO* < L . M ) =N0* <I,M>: NU* < L , M ) =NU* < I , M > : Ufi < L , M > =U A < I , M > 

6230 L=L+1 

6240 NO* < I ? M > = " " : NU* < I ? M > = " " : UP ( I M > =0 
6250 NEXTI 

6270 NO* <L, M) =NG* C 0 , M ) : NU* < L , M ) =NU* < 0 , M > : UH < L , M ) =UP < 0 , M > 

6280 NO* < 0 , M ) = " " : NU* < 0 ? M > = " " : UP < 0 , M > =0 
6290 GKM>=L+1 

6380 I FL > 1 THENPR I NT " E 1 " : QOTO4060 

6310 PR I NT " B8SS88S888S J "a i effo.ce tout les chenues Pointes Pour ce s v ioi ; 
6320 F'RINT"8TAPER UNE TOUCHE POUR LE MENU." 

6330 GETT*: IFT*=" "THEN6338 
6340 GOTO208 

9000 REM RECHERCHE MOIS . 

QR 1 CH n»j M on--! 'B9C20 • 9030, 9040, 9050» 9060,9070, 9080, 9090, 9 1 00 ,911 0 , 9 1 20 , 9 1 30 
9020 M* 1 ;• = " -3 ANU 1ER" 

9030 Mt<2; i = "FEURIER" 

9040 M$(3)="MARS" 

9050 M*<4)="AURIL" 

9060 M*<5>="MAI" 

9070 M$(6)=" JUIN" 

9080 M* <7 >=" JUILLET" 

9090 M*<8)="A0UT" 

9100 M* < 9 >=" SEPTEMBRE" 

9110 M*< 10)=" OCTOBRE" 

9120 M$< 11)=" NOVEMBRE" 

9130 M*< 12)= "DECEMBRE" 


9140 RETURN 

10000 REM SOULIGNEMENT 

10010 FOR 1 2= 1 TO40 : PR I NT "■ " ; : NEXT I Z : RETURN 

11000 REM EFFACEMENT RUN100B 

11010 FOR I =0TO3 1 9 : POKEK+ 1,0: NEXT I : PR I NT " 088888888 " : K=0 : RETURN 

12000 REM REPONSE 

12010 I NPUT " SE5SEEE " ; R* : RETURN 

13000 REM EFFACEMENT PAGE 1.2.3 

1 3003 I F I =9+ZTHENPR I NT " 888 " 

1 3005 I F I = 1 0+ZTHENPR I NT " 88 " 

13008 IFI=1 1+Z THENPR INT "B" 

13009 IFI=12+Z THENPR INT 

13010 FORB=0TO79: POKE54088+B, 0: NEXTB 

13030 PRINT"BPour la page suivante? taper une touche." 

13032 PRINT"Pour le menu? taper la touche C*)." 

13035 GETP*: IFP*='VTHEH200 
1 3040 I FP*= " " THEN 1 3035 

1 3050 PR I NT "B" : FOR J=0TO5 1 9 : P0KE53528+ J , 8 : NEXT J 
13860 F0RH=1T09: PR INT "8" : NEXTH 
1 3865 FORU=0TO79 : POKE54088+U , 0 : NEXTU 
13870 F'RINT“8Si vous avez fait une erreur!!!" 

13080 PR INT "Pour le Menu taper la touche (.*>." 

13885 IF I=Q<M)-1 THENPR INT "0888888888" ? : G0T04188 
1 3890 Z=Z+ 1 3 : A= I + 1 : PR I NT " 08888888" ? : G0T04 1 20 

14000 REM EXISTENCE UIRGULE 

14010 FORG=0TO79? POKE53808+G-ZZ, 0: NEXTG: PR INT "880" 

14020 I FKZ=0THEN1 320 
14030 KZ=0: QOTO3620 



BSTCJCES 



KIT MODIF. 50608 


2006 REM 
2100 REM 

2200 REM Data AFFICHINSTRUC , version du 04- 12-82. 

2300 REM 
2400 REM 

2500 DATA ' FE , FE , C A , 25 , 3F , FE , FF .. 00 , 3A , 92 , 1 1 , 32 , ©3 , 4 A , 3E, CE , 32 , 92 , 1 1 , CD , F8 , 49 
2600 DATA FE , 00 , 28 , 3E , FE , F© , 28 , F5 , FE , 4F , 38 , F 1 , 06 , 01 , F5 , 2 1 , B A , 4 1 , 4E , 3E , FF , B9 
2700 DATA 28 , 05 , 3E , DE , B9 , 28 , 83 , 23 , 1 8 , F2 , F 1 , B8 , 28 , 29 , F5 , 3E ; 88 , 4E , B9 , 38 , 83 , 23 -, 
2808 DATA 18, F9, 23, 84,11, 6D, 42, F5, ?C, BA, 20, ©7, 7D, BB, 20/03, 21» 83, 42, Fl , 18, D8 
2980 DATA 3A , 83 , 4 A , 32 , 92 , 1 1 , AF, 32, 3E, 1 1 , C9 ,01, 88 , FF , 7E , B9 , 38 , 84 , 86 , 88 , D6 , 88 
3800 DATA CD ,12, 80 , AF , B8 , 28 , E3 , 23 , î 8 , EE-, 06 , FF , CD , FF , 89 , CD , CA , 88 ,10,F8, C9 
3108 REM 

3280 FOR 1=8 TÜ 130: RE AD A*: POKE DEC “4980 " > + 1 * DEC <. AT- > : PR I MT I : NEXT I 
3308 REM 
3408 REM 

3580 REM Autres modifications du BASIC 58683 
3680 REM 
3780 REM 

3800 POKE DEC < " 3F 22 11 > , DEC < " C3 " > : REM -i 

3908 F'OKE DEC ( " 3F 23 " > , DEC ( " 88 " > : REM I , Appel de la routine AFFICHINSTRUC ■> 

4800 F'OKE DEC < " 3F24 •' > , DEC < " 49 " > : REM J 

4100 POKE DEC ( " 27CF " ■> , DEC < " D 1 " > : REM Déblocage de FEEK 

4280 POKE DEC ( " 4685 " > , DEC ( " 88 " > : REM 

4380 POKE DEC < " 4606 " > , DEC < " 88 " > : REM I Déblocage de LIST- H 
4480 POKE DEC < " 4607 " •' , DEC < " 00 " > : REM J 
4500 POKE DEC < " 4B A8 " > , DEC < " C7 " > : REM -, 

4600 POKE DEC("4BA1" •' ,DEC(" 19" •' :REM J Pet-met d 'utiliser LIST= sans a r rât pgm 
4700 REM Mous pouvez ajouter d autres F'OKE à chaque nouvelle découverte...! 
4808 REM 
4980 REM 

5080 REM Data affichage non du BASIC 
5180 REM 
5280 REM 

5308 DATA 3E,16,CD, 12,©0, 11,96, 48 , CD ,15,88 , CD , 3E , 00 , CD , 86 , 00 , CD , 06 ,88,11, BE , 4 

5408 DATA CD ,15, 00 , CD , 3E , 88 , C3 , E7 , 48 , 88 , 53 , 55 , 58 , 45 , 52 , 28 , 42 , 49 , 47 , 2D ,42,41 , 5 

5508 DATA 49 , 43 , 28 , 4D , 4F , 44 , 49, 46 , 49 , 45 , 28 , 56 , 4D , 28 ,49, 4E, 46, 4F. 52 , 4D ,41,54,4 

5680 DATA 5 1,55, 45, 8D 

5708 DATA D8,D8,D8,D8,D8,D8,D3,D8,D8,D8 

5808 DATA D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 

5980 DATA D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 

6800 DATA D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , D8 , 8D , 8D , CD , 86 , 08 , C3 , 88 ,12 


6108 REM 

6280 FOR 1=0 TO 11 9 : READ AT: POKE DEC < " 8908 " > + 1 , DEC C AT > : NEXT I 
6308 REM 
6408 REM 

6500 REM Data psm sauvegarde BASIC 5868S modifié 
6608 REM 
6708 REM 

6806 DATA F5 , C5 , D5 , E5 , 2 1 , 80 , 89 ,81, 78 , 88 ,11,75, 48 , ED , B8 , 2 1 , 88 , 1 2 , 22 , 84 , 1 1 , 3E 
6908 DATA 01 , 32, F0, 18, 21, 58, 3A,.22, 82, 11,21, 75,48, 22,86, 11,81,11, 88, 21 , E6, 12 
7008 DATA 11, Fl, 10, ED , 68 , CD , 36 , 84 , CD , 75,84, 3E, 87, 32 , 03 , E8 , 3E , 87 , 32 , 82 , E8 , E 1 
7180 DATA D 1 , C 1 , F 1 , C9 
7280 REM 

7308 FOR 1=8 TO 69 s READ A* s POKE DEC < " 8854 " > + 1 , DEC < AT ) : F‘R I NT I : NEKT I 
7480 REM 
7508 REM 

7688 REM Sauvegarde du BASIC 58688 modifié 
7780 REM 
7808 REM 
7980 PR INT" E" 

8080 CURSOR 8, 12: PRINT" Appuyer une touche si cassette Pr-îte" 

8180 ZZT="" 

3208 GE T ZZ$:IF ZZT="" THEH8280 

8308 PR I NT "B": CURSOR 8,11: USR < DEC < " 8854 " > > 

8400 REM 
3580 REM 

3688 REM Mode d'emploi du BASIC 5868S modifié 
3700 REM 
3808 REM 

3980 PRINT"EF'our utiliser votre nouveau BASIC 5868S" 

3000 PR INT "fait es BREAK 2 ......... le curseur " ’ lHR$ 1 ü3 j * " ' " 

3180 F’RINT"apparait et vous sis no. le aue 1 appui d "" 

3208 PR INT "une touche alphanumérique at fichera une" 

3300 PRINT"f onction BASIC sur 1 écran 
3 3480 PR INT SPRINT 

3 3508 PR INT "Pour revenir au clavier normal sans at' fi chase d'une fonction "? 

9 3680 PR INT "appuyer sur 3PACE 
3708 PR INT 

3880 F'R INT" Ma intenant F'OKE , LIST H sont débloqués" 

3908 PR INT "et LI3T= est utilisable sans .problème ' 

10080 PR INT "dans un programme . Il n ar rete Plus ce" 

18188 F'RINT"dernier après son exécution." 

D. BEÜRIER 



DE LA LECTURE DIRECTE 


DU CLAVIER : 
programme de dessin 


y L M - 4 5 y 5 6 î R E M a d r e s s e i ! y i p I n n t. n t. { n 

2S REND OC 5 POKE LM , OC: I FOC< >28 1 ÏHEMLM=LM+ 1 s 80T028 : REM i 1 ant a t i on 
30 MD=45056 ' REM poi nt ' d "’ent ree rout { ne 

4 ü R G =45 O 6 0 - R E fl a d r e s s e d •=• 1 '' o c t e t s p e c i t* i a n t. . 1 a r- a n s e e- s c r u t e- e- 

5 0 R 8 = 4 5 0 8 8 ” F! E M a d r e s s e d u r e- s u 1 1 a t 
y }■, — 4 ü s V = 2 5 « F! E M c 0 o r d 0 n e e s 

20 PEINT" K 433! " 

38 PEINT" z—f—N" 

PEINT" I 83** " 

REM t. p st <Z> 

i 1 9 POKE RG ? 246 s USR < HD > : I FPEEK < RS > =255THENN=N- 1 
L 15 EEM test T> 

L 20 POKE RG ,241s USR < HD > s I FPEEK < RS > = i 28THENV=V- 1 
1.25 REM test OT> 

1 30 POKE RG j 247 : USR < AD > : I FPEEK < RS > =255THENN=N+ 1 
!.^ REM t p s t. ; 

1 40 POKE RG? 243s USE < HD > : I FPEEK < RS > = 1 2STHENV=V+ 1 
150 SET N? S-'s 60T01 10 

[ 0@0 [;.0T H 33 ? O ? 224 ? 54 ? 243 ? 35 ? 1 26 ? 60 ? 50 ? 32 ? 1 76 ? 2ü 1 


32 
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défaut de ne prendre en çomP« d L 

Set “' = "’® î 

S, 2 ,' prend alors SïeltVs’i Sët t 

Scttct.'atSn 9 .« m psdu’é... . 
le restera. ^pg, 2 34 ,A 1 

«A» prend alors la ^*® u J st en f onc ée. 

255 si aucune touche urSOR KEYS) 

223 si «*-» est e " f f ° tée (CURSOR KEYS) 
191 si «— » est ®"f°ncée(C(JRSOR KEYS) 
247 si « 1 » est enfonce RSQR KEYS) 
239 si « 1 » est enfoncee ie KEYS) 

gfà «TAB» est enfoncée (CÜRSOR 

S’obtient encore 

valeurs de «A» 9 12 citées ; il est 

de 2 touches pajnni » déplacer un 

ainsi, entre autres. possib à rEst> 

obiet sur l’écran, a son J, au 

au Sud-Ouest, au Nord Oues ^ ^ 

" eS ^eaeïCons Sord comment y 
'accédem 52992 TO 

gggV S**»®. - : *XT 


65010 DATA 219.232,203,255,214.232, P 

SS2 S »“K: t 

poker, soit un c plusieurs points I 

basse résolution, so P initiali- 

sur la RAM graphie l tran s- 

ser la RAM graphique 2 .1 su» ( j/wjvvEDI A- 
former le DAT A, 2, ’ ’ t car plusieurs 

TEttENT ■ b* SStlent les effets 
‘ d f noS USE « vous ferait »i"» !» to <lmS 

la mémoire P r ° 9 ^^ e ' RAM graphiques 

Les 64.000 points ^ adresses mémoi- 
sont organises e JV 8 ’° ne 8 points. Cha- 
res qui contienn de l’octet con- 

?ë„Tdt CO c r éër m tt.,ë. La RA« H.R. 

! ^O^o^o^nes^^OOO en mode 80 colonnes 
(qUI 36 équivaudra à CÜR- 

° SSS i - ü-»à oai" »a 


Dans les P a 9 es ^me intitulé « JEU DE 
trouverez un progra été expli 

LA VIE .» qui résumé ^ce q ^ dan; 

rATsEMBLlSKpliV « 

instruction par instruction. 


Un autre 

let remplacera avanta9eusem ^ 

PUN de, ' '''““XHlnitialisation d 

^ S r«s»* £ 

navanT indispensable à tout utilisateur 

MZ 80 B : reonnalisée » de 20 1 

- Initialisation «P e ^ on jî l0 [S HIFT] f 
ches de fonctions : Fl a HU + l 

L^Lsformation .soft- du f-W 

i- capucbons d, » 

^Remplacement des 1 

P pr»S ( ;' l .««s»biea mainte 
sans ISH1FT1- irfaDYI très soi 

_ Suppression du l KtA ^’' nes 
inutile et gros mangeur de ligne . 


AS-TU CES ASTUCES 


— Modification du SGROL : l’écran ne 
montera plus que d’une ligne à la fois et 
rendra ainsi beaucoup plus régulier le défi- 
lement des lignes. 

— Ecriture directe des touches curseur et 
[HOME] sur l’écran par [RVS] + touche cor- 
respondante ; le symbole [CLR] étant 
obtenu par [SHIFT] + F10. 

AVANTAGES : la mémoire programme est 
intacte ; on utilise pour les programmes en 
langage machine les titres du moniteur et 
du BASIC... (il fallait y penser). Vous trou- 
verez, en REM, les valeurs des poke(s?) 
pour SP 5510 et SP6510. 

•QUELQUES BONNES ADRESSES : 
$0650 : Met dans une zone mémoire de 
longueur BC, à partir de l’adresse HL le 
contenu de A. 

$064F : Efface une zone mémoire de lon- 
gueur BC, à partir de l’adresse HL. 
$063A : Compare les contenus de (DE) et 
;(HL) ; retour si égaux, sinon 
jDE = DE+ 1:HL = HL+ 1:BC = BC — 1 et 
boucle jusqu’à BC = 0. 

$05DD : Affiche le contenu de A. 

$05D8 : Affiche le contenu de HL. 
$0CA6 : Passe en mode 80 colonnes. 
i$0D18 : Passe en mode 40 colonnes. 


$0G7J : Passe en mode 136 colonnes. (On 
peut toujours rêver...). $0D31 : Affiche le 
contenu des registres AF, BC, DE, HL, SP. 
Cette adresse est appelée par la routine 
d’interruption RST 38H du ZBO qui indique 
que le programme machine en cours d’exé- 
cution s’est planté à l’adresse indiquée par 
SP. 

$04CE : Arrêt du moteur de la cassette. 
$0500 : Délai 4 secondes. 

$0517 : Délai 2 secondes. 

$0511 : Délai 0,3 secondes. 

$0504 : Délai en fonction de la valeur de 
BC. 

$048C : Ouverture de la porte cassette. 
$04E9 : Avance rapide de la cassette (FF). 
$1151 : Position horizontale du curseur. 
$ 1 1 52 : Position verticale du curseur. 

QUELQUES BONNES LIGNES 
MZ serait-il venu d’ailleurs ? : 

10 FORA « 1TO50-.B = ABS (A) : POKE$ 
EC4,B:USR ($EBE) : NEXT : GOTOIO 

— A placer dans le programme d’initiali- 
sation pour obtenir un ‘BIP’ très discret à 
l’appui de chaque touche : 

POKE$EC4,50 : POKE$ECl,2 : POKE$ 
732,205. 

— Pour retourner au DISK BASIC 6510 


sous moniteur sans perdre le contenu des 
touches bleues, taper J $151E. 

— Pour motoriser le curseur sans appuyer 
sur [SHIFT], taper : POKE$06FC, $00: 
POKE$0725,$62. 

La vitesse de motorisation peut varier avec 
des valeurs allant de $00 à $99 à l’adresse 
$0725. 

— Un programme de renumérotation qui 
rendra vos programmes plus clairs mais ne 
modifiera pas les ‘GOTO’, ‘GOSUB’ et 
‘THEN’. 

10 INPUT”PAS : ”;P:INPUT”No. DE 
DEPART : ”;N 

20 I = 26460:T = PEEK (25935) * 

256 + PEEK (25934) 

30 FORJ « 26460TOT: NI - INT (N/256): 
N2~N— NI * 256: POKEI + 2, N2.POKEI 
+ 3, NI 

40 1 - PEEK (I + 1) * 256 + PEEK (I):IFI - T 
— 2THENEND 
50 N = N = P: NEXT. 

Ce programme fonctionne sous DISK 
BASIC, s’il ne fonctionne pas sous votre 
BASIC, soyez patients, nous vous commu- 
niquerons, dans le prochain bulletin, les 
adresses correspondantes. 


O REM ******* INITIALISATION ** 

O REM ******* Jean MILLET ***** 

O REM ******* FEVRIER 1983 **** 

O REM ************************* 

10 DEF KEY ( 1 ) =RUN 1 
20 DEF KEY (2) =LIST ~l 
30 DEF KEY (3) =AUTO 
40 DEF KEY ( 4 ) =CONSQLE 
50 DEF KEY ( 5 ) =6RAPH 
60 DEF KEY < 6 ) =CHR* < 

70 DEF KEY (7) = DEF KEY ( 

80 DEF KEY <8) =CONT 1 

90 DEF KEY (9) =LQAD T 

ÎOO DEF KEY (10) =DIR 1 

110 REM ***** FONCTIONS ’BIS’ *** 

120 Fl*="LOCK 1 
130 F2*="UNL0CK1 
140 F3*="?TI* "1 
150 F4*=" GOSUB 
160 F5*="RETURN 
170 F6*="P0KE 
180 F7*="?PEEK( 

190 F8*=" DELETE 
200 F9*="SAVE " 

210 REM ***** CHARGEMENT DES F ’ BIS’ * 

220 F*=F 1 *+CHR* < 1 3 ) +F2*+CHR* (13) +F3*+CHR* (13) +F4*+CHR* (13) +F5*+CHR* (13) +F6*+CHR 
*(13) +F7*+CHR* (13) +F8*+CHR* (13) +F9*+CHR* (13) 

230 F0RI=1T0LEN (F*) s A=ASC (MID* (F* , I, 1) ) s P0KE4559+I , A: NEXT 

240 P0KE4560+LEN ( F* ) , 6 : P0KE456 1 +LEN < F* ) * 1 3 : P0KE*08 1 C , 7 : P0KE*08 1 D , 9 

250 REM ***** PG.MACH. DES F ’BIS’ * 

260 FOR 1 = 1 T04 ! RE AD A s P0KE2043+ 1 , A : NE X T s FOR I = 1 TO 1 4 : RE ADA : POKE 1 620+ 1 , A : NE X T 
270 DATA205 ,86, 6, 71, -13, 203 , 80 , 202 ,95,6, 33 , 208 ,17,201, 33 ,128,17,201 
280 REM ***** PG.MACH. DES CURSEURS * 

29Ô FOR 1=191 3T0 1 9 1 5 s RE AD A : POKE I , A : NE X T 

300 F0RI=5007T05024:READA:P0KEI, A: NEXT: REM I=4943T04960 

310 DATA 195, 144, 19, 13,254,7,48,7,203,88,40,3, 195,84,7,205, 110, 10, 195,98,7 
315 rem gMiaaaflj t M aa ai iii ig ajouter pokei914,80 
320 REM******* CLAVIER AZERTY ******* 

330 P0KE*0D69, *51 s REM Q4A 
340 P0KE*0D79 , *4 1 : REM ^A-^Q 
350 P0KE*0D82 , *57 s REM W4Z 
360 P0KE*0D7F,*5ASREM Z4W 
370 P0KE*0DAl,*71ïREM q->a 
380 P0KE*0DB1 , *61 • REM a-)q 
390 P0KE*0DBA, *77 s REM w4z 
400 P0KE*0DB7,*7A'-REM z4w 
410 P0KE*0DE9,*98sREM H *- 
420 P0KE*0DD9,*97SREM ^ r 
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430 P0KE*0DF2,*95: REM i 4+ 

440 P0kE*0DEF,*8E:REM -Hi 
450 P0KE*0D96,*28:REM C->( 

460 P0KE*0D98,*29:REM 3->) . 

470 POKESOBOP? $18: REM M0DIF„ SROLL 

480 P0KE5074, 13: REM SUP.de Ready Sll POKE 5004,13 
500 NÉ W s END 

I REM ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

3 REM ♦ LE JEU DE LA VIE ♦ 

5 REM ♦ Sylvain BIZOIEEE ♦ 

9 REM ♦ ♦♦♦♦♦♦♦♦.♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

10 LIM1T$8FFF 

II G0SUB41 

12 G0SUB55 

1 3 PR I NTCHR* < 6 ) s GRAPHE 

14 X = i 60 î Y=1 00 

15 ' SETX , Y: RESET307, 36 

16 FOR 1=1 TGI 30: NE X T 

17 I NP3>234 ? A 

18 I NP3>232 ? B 

19 I F ( A=223 ) * ( X >7 ) THENRESET X ? Y s X = X-1 

20 I F ( A= 1 9 1 ) * < X < 312) THENRESET X , Y : X = X + 1 

21 IF < A=247 ) * < Y >0 ) THENRESET X , Y u Y= Y- 1 

22 I F < A=239 ) * ( Y< 1 90 ) THENRESETX ? Y : Y = Y + 1 

23 IF (A=222) *<X>7) THENX=X-1 

24 I F ( A= 1 90 ) # ( X < 3 1 2 ) THEN X = X + 1 

25 I F < A=246 ) * ( Y >0 ) THEN Y = Y- 1 

26 I F ( A=238 > * ( Y< 1 90 ) THENY= Y+ 1 

27 IFA=253THENG=0: G0TQ29 

28 GOTO 15 

29 USR<$9043) 

30 G=G+1 

3 1 CURSORO n 24 : PR I NT " Gener at i on " ; 6 ; 

32 INPS>234', A 

33 INP*)232,B 

34 IFA=253THEN32 

35 I F B= 2 7 THEN37 

36 G0T029 

37 PRINTCHR* <6) ; "Un autre essai ? (0/N) 

38 GÉTRE$: IFRE$="0"THEN1 3 

39 IFRE$="N"THENPRINTGHR$ (6) ; "Le jeu de la vie est. fini.":END 

40 G0T038 

41 C0NS0LEC40,S0,24,N 

42 PRINTCHR$(6) 

43 CURSOR 12,10: PR I NT " »■ - ■ - — — 11 

44 CURSOR 12, 1 1 : PR I NT " LE JEU DE LA VIE" 

45 CURSOR 1 2 , 1 2 : PR I NT " " 

46 CURSORO? 24: PR INT "Car te graph.l"; 

47 1=36863 

48 1=1+1 

49 CURS0R27? 24 SPRINT" "5 

50 READA 

5 1 I F A=999THENRETURN 

52 POKE I, A 

53 CURS0R27, 24: PRINT"Pati ence. „ „ 

54 G0T048 

55 USR(*OEBE) s6RAPHIl,C,01 

56 CURS0R20 , 24 s PR I NT " Mode d’emploi (0/N) "5 

57 GETRE*: IFRE$="N"THENRETURN 



58 I FRE$< > " 0 " THEN56 

59 PRINTCHR$ (6) ; "Le jeu de la vie est constitue d’une" 

60 PRINT"suite de générations dans une population de cellules» 

61 PR INT" Chaque cellule est representee par" 

62 PRINT"! point sur I ’ écran » " 

63 PRINT" Les cellules naissent et meurent" 

64 PRINT"si mul tanement selon des critères bien" 

65 PR INT "précis s "SPRINT 


66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


PRINT"# 1 cel lui le meurt de solitude si elle " 

PRINT" a moins de 2 voisines»" 

PRINT"# 1 cel lui le meurt d ’ etouf f ement si elle a plus de 
PRINT"# 1 cellule na.it si elle a 3 voisines» 

PR I NT : PR I NT : PR I NT " r " 

PRINT" 1*1*1*!" 

PR INT" t—1 — !-~{ ♦ 1 c e 1 1 u le." 

PRINT" | *!♦!*! 

PR I NT " | — | — 1 — i * ses va i s i nés » " 

PRINT" ! * | * j * | " 

PRINT" 1 — ' — «—J" 


voi si nés " 


3 ! 


77 G0SUB94 

78 PRINTCHR* (6) ? " Pour créer la génération de départ." 

79 PR INT “Les touches : " 

80 PR 1 NT s PR I NT "Cf- -» f +3 deplatent le curseur ( )" 

81 PR I NT “CT AB 3 + C -» t +3 affichent “ 

82 PR I NT s PR I NTT AB < 1 6 ) ; " 1 a < es ) cel 1 ul e <s) - “ 

83 PR INT s PR INT “Quand vous avez termine? tapez C ESP ACE 3“ 

84 PR INT “et admirez-.." 

85 PR INT s PR INT "Vous pouvez ensuite :" 

86 PRINT: PRINT" LESPACE3 : Stopper sur une génération." 

87 PRINT: PRINT" CBREAK3 s Faire un autre essai." 

88 SET307 ? 36 

89 CURS0R25 ? 24 : PR I NT " PRET ? <0/N)"5 

90 GETRE$: IFRE$="0"THENRETURN 

91 I FRE$= " N " THEN59 

92 G0T090 

93 F0RI=1 T010 s NEXT : RETURN 

94 CURS0R38, 24: PRINT"-»"; 

95 G0SUB93: GETRE$ 

96 IFRE$< >" "THENRETURN 

97 CURS0R38 ? 24 s PR I NT " "; 

98 G0SUB93: G0T094 

99 DATA 203, 238, 201, 203, 214, 201, 33, 41, 160, 17, 41, 224, 1, 0, 30, 237, 

176, 33, 0, 160, 54, 0, 17, 1, 160, 1, 240, 31, 237, 176, 201 

100 DATA 221, 203, 215, 126, 200, 221, 203, 255, 126, 200, 221, 203, 39, 126, 2 

00, 203, 198, .201, 221, 203, 217, 70, 200, 221, 203, 1, 70, 200, 221, 203, 41 

101 DATA 70, 200, 203, 254, 201, 219, 232, 203, 255, 211, 232, 62, 2, 211, 244, 


102 DATA 221, 190, O, 32, 40, 221, 190, 216, 32, 35, 221, 190, 40, 32, 30, 221, 

203, 255, 126, 196, 31, 144, 221, 203, 1, 70, 196, 49, 144, 193, 5 

103 DATA 32, 218, 221, 35, 221, 35, 35, 35, 13, 32, 207, 195, 6, 144, 1, O, 0, 
221, 203, 215, 126, 40, 1, 60, 221, 203, 216, 70, 40, 1, 4 

104 DATA 221, 203, 216, 78, 40, 1, 12, 221, 203, 0, 78', 40, 1, 12, 221, 203, 40 

, 78, 40, 1, 12, 22 


203, 0, 70, 3: 


8 , 


>, 221, 203, 40, 70, 40, 1, 4, 221, 203, 39 

105 DATA 126, 40, 1, 60, 221, 203, 255, 126, 40, 1, 60, 221, 

128, 129, 254, 3, 40, 13, 24, 13, 128, 129, 4, 254, 2, 40 

106 DATA 4, 254, 3, 32, 2, 203, 198, 175, 221, 203, 216, 86, 40, 1, 60, 221, 20 


60, 


îi 


3, O, 86, 40, 1, 60, 221, 203, 40, 86, 40, .1, 

107 DATA 203, O, 78, 32, 8, 128, 129, 254, 3, 40, 13, 24, 13, 128, 129, 61, 254 

, 2, 40, 4, 254, 3, 32, 2, 203, 206, 241, 6, O, 221, 203 

108 DATA 216, 94, 40, 1, 4, 221, 203, O, 94, 40, 1, 4, 221, 203, 40, 94, 40, 1, 


109 DATA 13, 24, 13, 128, 129, 61, 254, 2, 40, 4, 254, 3, 32, 2, 203, 214, 241, 

14, O, 221, 203, 216, 102, 40, 1, 12, 221, 203, 0, 102, 40 

110 DATA 1, 12, 221, 203, 40, 102, 40, 1, 12, 221, 203, 0, 94, 32, 8, 128, 129, 

254, 3, 40, 13, 24, 13, 128, 129, 61, 254, 2, 40, 4, 254 

111 DATA 3, 32, 2, 203, 222, 175, 221, 203, 216, 110, 40, 1, 60, 221, 203, 0, 1 

10, 40, 1, 60, 221, 203, 40, 110, 40, 1, 60, 245, 221, 203, 0 

112 DATA 102, 32, 8, 128, 129, 254, 3, 40, 13, 24, 13, 128, 129, 61, 254, 2, 40 

, 4, 254, 3, 32, 2, 203, 230, 241, 6, 0, 221, 203, 216, 118 

113 DATA 40, 1, 4, 221, 203, 0, 118, 40, 1, 4, 221, 203, 40, 118, 40, 1, 4, 245 

,221, 203, 0, 110, 32, 8, 128, 129, 254, 3, 40, 13, 24 

114 DATA 13, 128, 129, 61, 254, 2, 40, 4, 254, 3, 32, 2, 203, 238, 241, 14, 0, 

221, 203, 216, 126, 40, 1, 12, 221, 203, O, 

115 DATA 221, 203, 40, 126, 40, 1, 12, 221 

3, 40, 13, 24, 13, 128, 129, 61, 254, 2, 40, 4, 

116 DATA 2, 203, 246, 175, 221, 203, 217, 

, 60, 221, 203, 41, 70, 40, 1, 60, 221, 20 

117 DATA 128, 129, 254, 3, 40, 15, 195, 122, 144, 128, 129, 61, 254, 2, 40, 5, 

254, 3, 194, 122, 144, 203, 254, 195, 122, 144, 191, 165 

118 DATA 189, 177, 138, 156, 161, 186, 163, 155, 162, 160, 145, 203, 0» 94, 13, 

24, 13, 128, 999 


,26, 40, 

1, 12 



203, 0, 

118, 32, 8, 128, 

129, 

254 ; 

4, 254, 

3, 32 



1 , 40, 1 , 

60, 221, 203, 1, 

70, 

40, 

0, 126, 

32, 9 




100 R UN 


10 CQNSOLEN , C40 s PR I NT CHR$ < 6 ) : GRAPHC ,01: FOR I =0T0320SÏEP2 : L I NE 1 60 , 100, I,0:NEXTI 

20 FOR I =0T0200STEP2 : L I NE 1 60 , 1 00 , 320 , I : NEXT I 

30 FOR I =320T00STEP~2 : L I NE 1 60 , 1 00 , 1 , 200 : NE X T I 

40 FOR I ==200TQ0STEP-2 : L I NE 1 60 , 100,0, I:NEXTI 

50 FOR I =0TG320STEP2 : BL I NE 1 60 , 1 00 , 1 , 50 : NE X T I 

60 FOR I =0T0200STEP2 s BL I NE 1 60 , 100,270, I:NEXTI 

70 FOR I =320T00STEP-2 : BL I NE 1 60 , 100, I, 150:NEXTI 

80 F0RI=200T00STEP-2s BLINE160, 100,50, IsNEXTl 

82 CURSOR 1 4 , 1 2 : PR I NTS* 

84 FOR I = 1 TO 1 0000 : CONSOLER : CONSOLEN : NE X T I : CONSOLER : FOR 1= 1 TO 1 0000 : NE X T I : CONSOLEN 
90 FOR I=1T0 10000: NE XTI 
100 RUN 







CK 3 

***** 

CK3CA3CB3 


-BASIC- T 
4 K / o c t . J 
-BASIC- -i 
2 K / o c t . J 
-BASIC- -j 


-BASIC- T 

il&ÏÊl- 


-BASIC- "1 
5K/oc t . J 
-BASIC- t 
4K/oc t . J 
VM 5060 t 
4K/oct. J 
-BASIC- i 
5K/oct . J 
MACHINE n 

ÎS K 48^- 


-BAS I C— 
25K/oct . 
VM 5060 
6K/oc t . 
VM 5060 
1 OK/oct . 
VM 5060 


-BASIC— 

i 3 &? 6 ±- 


VM 5060 
7K/oc t . 
VM 5060 
1 5K/oct . 
-BASIC- 


MACHINE 
4BK/OC t . 
-BASIC— 
6K/oct . 
-BASIC- 


BASIC- T 


VM 5060 t 
3K/oct . J 
MACHINE t 
8K/oc t . J 
-BASIC- -i 
8 K / o c t . J 


MACHINE -j 
6 K / o c t . J 
VM 5060 -i 


M 5060 -i 
4K/oct . J 
BASIC- 1 
2K /oct. J 


MACHINE 
4 K /oc t . 

-baSic- 


MACHINE t 
3K/oc t . J 
VM 5060 t 

1 1 K /oc t . J 
VM 5060 t 

2 O K / o c t . J 
-BASIC- t 

9K/oct . J 
-BASIC- t 
5K/oct . J 
VM 5060 -i 
25K /oc t . 1 
-BASIC- t 
64K/oc t . ■* 
-BASIC- -i 


VM 5060 
6K/oc t . 
VM 5060 


-BASlC- 
1 5K/oc t . 

-baSic- 

2 O K / o c t . 
- B AS I C — 


5 K / o c t . J 
-BASIC- “i 
12 K /oct. J 


5K/oct . J 
-BASIC- -i 

7 K / o c t . J 
-BASIC- i 

6K/oc t . J 


VM 5060 t 
3K/oct . J 
VM 5060 i 
8K/oc t . J 
-BASIC- -i 
5K/oct . J 
VM 5060 -i 
8K/oct . J 
SUP.BAS -i 
1 2K/oc t . J 
VM 5060 "I 


-BASlC- 
6K /oct . 
VM 5060 
oK /oc t . 
VM 5060 


VM 5060 
6K/oct 
VM 5060 
48K /oc t 
-BASIC— 
1 6K/oct 
-BAS I C — 


-BASIC- î 
9 K / o c t . J 
MACHINE -i 
1 6K/oc t . J 
-BASIC- t 
4K/oc t . J 
-BASIC- T 


-BASlC- 
6K/oc t . 
MACHINE 


VM 5060 
1 2K/oct . 
-BASIC— 
27K /oct . 


ALPHABET GOTH I QUE 

VOUS POURREZ AFFICHER LES ROTS DEMANDES EN GOTHIQUE H. R. MAJUSCULE OU MINUSCULE 

DEMO H. R 

COURTE HAIS SAISISSANTE DENO DE HAUTE RESOLUTION ( GRAPH 1) 

abattIe* lÉ^iaxi'mûm Valions qui" TRAVERSENT *L "ECRAN.” fcÂRTES GRÂPH. VET* fl." 

FANCY CLOCK 

LE SUNNUH DE L ' HORLOGE RURALE NUMERIQUE ET A AIGUILLES. iGRAPW U. 

GRAPHISMES 

8 GRAPHISHES DIFFERENTS: COCON 

HORLOGE MURALE 

HORLOGE A AFFICHAGE ANALOGIQUE ET NURERIQUE SIMULTANE 

LAS VAGAS-B 

IDER 'LAS VEGAS-K' AVEC GRAPH H. R. SAISISSANTS 1 IGRAPH 1>. 

LABYRINTHE 3 DIM 

TRES BELLE VERSION POUR RZ 80 B. PASSIONNANTE: BEAUK GRAPHS (GRPHÜ 

NAUFRAGES 

VOUS DEVEZ RECUPERER LES NAUFRAGES AVEC VOS BOUEES: ORIGINAL ET EN H. R. (GRAPH U 

OTHELLO H. R 

UN PROG. ORIGINAL ET TRES FORT. 

POUSSE-POUSSE 

REPLIQUE DU CELEBRE JEU DE PATIENCE: 5 NIVEAUX; DEMANDE PATIENCE i LOGIQUE; GRAPHIQUE ANIME. 

UN 1 BEAU' PENDU ”EN H. R HA fs "DEVREZ CREER “VOTRE "PROPRE LISTE o'e Vio’tS. * GRAPH i* 1 ’ 


-BASIC— 

1 2 K / o c t . 
-BASIC- 


CEI 

**** 

C B 3 

******** 

C B 3 

, ******** 

CD 3 

****** 

C B 3 

******** 

C B 3 

******** 

C B 3 

****** 


-BASIC— 
32K/oc t . 
-BAS I C- 


-BASÎC- 
40K /oct . 
-BAS I C- 
40K/oc t . 
- BAS I C - 
1 OK /oct . 


PETALES DE VIE CB3 

ASTROLOGUE t ASTRONOME; HZ VOUS PREDIRA F AVENIR SUR 1 AN AVEC UN TRES BEAU 6RAPH (SRI ) L ******* 

PENTOMINOS CB3 

LES RESLES SONT CONNUES; LE PROGRAMME EST TRES BIEN FAIT; LE JEU EST PASSIONNANT. L ******** 

SHftRPiCHflPELLE DE’AIMEZED' îLIEU DIT ’QUATREVINSTBE’ (BPH 1) L ****** 

E "’ ÔN "EST "HABILE eVpa'tIENT." BEAUX 6'ra'pHS.' (6rVh ' l )'. ' * ‘ £ *|^*»*** 
OŒLLOITËjniULATION EN TEMPS W +' 6RAPH DU "TERRAIN "d "AfERR I’SSABE "Ef DE "SES "OBSTACLES ” * £ ********* 

1 MLLE; 2 RA*QU'ET*TE*S5’ f OU *2 ’JO'ue'ur's.'. £ * * * * 

VRP ■ [g] 

PAS’ FACILE ¥ t'rÔUVER" LE 'plus COURT CHE’mi'n "pour RELIER ’o ‘villes’ d’e "FRANCE £ ****** 

f w|mWK*p||R J PROGMMMER^N ^SSEMèZeÛR ’ sÜR *K7 "voir n'otic'e ’biil l'et'in No.'zf £ ******** 

MSlpE^RAjefls’ POÛr’bÂSIC ’SÔIÔ ET *5025 £ *** 

wuFkrmèt ÎPre'co'pM t’ouY >ROWlÂMjÎE ’ eCR f T EN ASSEMBLEUR .’ £ ****** 

aIdE^A ’l? CREANCE DESSIN^ ET A NSERf I ÔN ’ aÛTÔMÂT i’QÛE "DANS iÎN 'PROGRAMME £ * * * * 

CALCUL EMPRUNT r EK] 

DESASSEMBLEUR!. . r CK3CA3CB3 

PERMET DE TRADUIRE; EN CLAIR; TOUTES LES INSTRUCTIONS Z 80 CONTENUES DANS UN PROS. MACHINE L ******* 

DESASSEMBLEUR MACHINE r CK3CA3 

DESASSEMBLEUR EN LAN6. MACHINE; ECRAN OU IMPRIMANTE; '5 FOIS ♦ RAPIDE MAIS NON MODIFIABLE L ******* 

DUMP DISK. 6015 CK] 

VOyS^LEZJglN POUVOIR EXPLORER CES SUPPORT MAGNETIQUES TANT PROTEGES .... L******* 

AIDE A LA CREATION ’de’ d’es’SÎNS GRAPHIQUES £ ******* 

KOKAN. SUPER BASIC 2 r C K 3 

VOIR No. 1 POUR EXPLICATIONS ET CE No. POUR COMPLEMENT D' INFORMATIONS. L ********** 

MODIFS 5025 CK 3 

MODIFIE ET AMELIORE LES POSSIBILITES DU SP 5025. VOIR ARTICLE BULLETIN No.2 *- * * * * 

MINITEXT CB3 

TRAITEMENT DE TEXTE SIMPLIFIE MAIS AMPLEMENT SUFFISANT POUR DE PETITS TRAVAUX. L ****** 

WllW QyF Fjjici LÏ TER a'lÂ CRÉATION "DE vos" GRAPHISMES "h .*R ." ' 6RÂPH 1 ", £ ****** 

voFrF Travail en "bas fc 'après ’um temps’ donne ('sonnerie e't'cligno'te'me'nt" d"e "l'écran' £ ***** 
II^REMR’OT’AfloVDE’s’LfSNES D’Ûn'PROG.î" s’aNS’mÔDI"fi"er' LES s’ofo;" SOS’UB; ’et'c.*. ' " " " £ *f**^ ^ ^ 
pqwuir? les' v *d ’’un m’z ’su’r ’n ’im’po"rt"e 'bu’el’ a'ut’re’ iïz ’(A" p’re’ci'sër "a 'la' com’mânde’. ’*.’’■■£ **** a;i,:b:i 

SUPER MONITEUR ’.... r CK3 

IMPL. EN COOO! MEME POSSIBILITE QUE DEBUGSER (SAUF Pt D’ARRET) PLUS RECHERCHE D’UNE SEQUENCE L ****t* 


—BAS I C — 

^Uïè'- 

64K/oct 


MACHINE 


1 K/oc t 
— BAS I C — 
20K/oc t 
VM 5060 


-BAS _ _ 

64K/oc t 

MACHINE 

MACHINE 
1 K /oc t 

— B A S I C — 

64K/oc t 

— BAS I C — 
5K/oct 

-BASIC 

2K/oc 

-BASIC 
3K/oc t 

-BASIC 
3K/oc . 

MACHINE 

4K/oct 


mus i gmlie: , 


ES OS' '"4 S 


EL T 


,.-i F > F h;; j; MAN T E 


EL IM S SE: :i: b IM EE M SE IM T 


ACCORDEON r CK3CA3CB3 

lUO^DES HIRONDELLES’! UN P’TIT AIR D’ MUSETTE. L *** rûlrni 

F exFrai tVdês ’sûi te^ pour ’v îol'once'lle " < synthet i q'uë i "'"'"£ **** A 3 

PERMET UNE RÊCOPIE D’ ECRAN ’bÂSS’e’ou’ HAUTE RESOLUfl QN ‘SUR "IMPRIMANTE e'n’gr'aND 'FORMAT. " " " " C ****** 

PERMET DE JOUER LES 3 GAMMES DIRECTEMENT AU CLAVIER; LES NOTES APPARAISSENT SUR UNE PORTEE L ***** 

MUS IC 4 r CK3CA3CB3 

MZ CREE UNE MUSIQUE ALEATOIRE MAIS REPONDANT AUX REGLES DE LA COMPOSITION. L **** 

FIDELE REPRODUCTION DE 'LA JOCONDE’ SUR IMPRIMANTE P5 -.L****,** 

MUSIQUE SUISSE r CK3CA3CB3 

4 MINUTES DE TRES BELLE MUSIQUE. L ***** 


-BASIC- -i 

4K/oc t . J 
-BASIC- -i 

8K/oct. J 
-BASIC- -i 

5 K. /oc t . J 
-BASIC- -i 

15K/oct . J 
-BASIC- -, 

8K/oct. J 


POUR U ci 7 R UN"E°cPuPbF wfsTEE EN FONCTION DES PARAMETRES FOURNIS £ ****** 

SIMULATION DE TOUTES LES FONCTIONS CHAINE DU LANGAGE L.S.E. (12 SOUS-PROGRAMMES) . L ****** 

PROGRAMME D’E.A.O. QUI ENTRAINEES JEUNES ENFANTS AU CALCUL ET A LA DICTEE. L ******* 

DERIVEES. r CK3EA3CB3 

DONNE LES DERIVEES SUCCESSIVES D’UN POLYNOME. L * * * * 

DENOMBREMENTS r CK3CA3CB3 

CALCULS DE DENOMBREMENTS : COMBINAISONS; PERMUTATIONS; SIMPLIFICATIONS; ETC.. L ****** 

EQUATIONS r CK3EA3CB3 

RESOLUHON^EQUATIONS PAR METHODE DU PIVOT L ***** 

œij^ A iC c ^^ L ÿi v ÆL AB ' Lfl ' T * E ' BES " ft " cEoR " Ds " ^ ******** 

TRACE DE COURBES SUR TABLE TRAÇANTE' NATANAB'e.' £ ***** 

INTEGRALES r CK3CA3 

SANS COMMENTAIRES.. L **** 

ENTRAINEMENT A LA LECTURE POUR ENFANTS DE COURS MOYEN. L ****** 

LECTURE C.E.... r EK3CA3CB3 

AIDE A LA LECTURE POUR ENFANfs DE COURS ELEMENTAIRE ET MOYEN. L ****** 

MULTIPREC r CK3CA3CB3 

TRAITEJN.MUUIPRECIStaN ADDITION L **** 

GESTION^ DES* WITCS D'UNE* CLA'sSE'aVEC t'ab'lÊAU'x 'et' HISTÔGRAIÎHÊS £ ******* 

MULTIPUZZLE r CK3CA3CB3 

WtE^WlJIPLICATION COMPLEXE EST POSEE; IL SUFFIT DE RETROUVER LES CHIFFRES QUI LA COMPOSE! L *»***_, p 

etudF dû^trî angle d'e' pascal Jusqu ’ Â l ’ ordre 4V(saMat'io"n)' £ * * * * A 3 c B 3 

POLYGONES... r Ê B 3 

MZ CREE; A LA DEMANDE; TOUTES SORTES DE POLYGONES EN H. R. (6RAPH1! . L **** 

COURBE DONNANT L’EXPRESSION D’ACIDITE OU DE BASICITE D’UNE SOLUTION. (GRAPH1) L ****** ^ 

RESOLUTION EQUATIONS r CK3ÇA3CB3 

EQUATIONS 1er.; 2eie.; 3eie. DEGRE i 3 EQUATIONS A 3 INCONNUES. L **** 

RACINES POLYNOME ...r CK3CA3CB3 

RECHERCHE DES RACINES D’ UN POLYNOME. . . (BIEN SUR! L **** „ 

Mil par’ coe'ur'. £ * W** 

STATISTIQUES r CK3ÇA3CB3 

STATISTIQUE DESCRIPTIVE (POUR CLASSES DE LYCEE! L **** 

ANALYSE DE DONNEES STAT. EXCELLENTS GRAPHIQUES. L ******* 

TRACE DE FONCTIONS POLYNOMES SUR IMPRIMANTE SEIXOSHA. L ***** 

TIRS BALISTIQUES r 

TRAJECTOIRE D’UN OBUS SUR TABLE TRAÇANTE L **** 

PH ACID/BAS r £ K3 

COURBE DES pH SUR TABLE TRAÇANTE NATANABE. L ***** 

r> X V/ELX-^O 

r CK3CA3CB3 

J.”™.- r TÎÎÎIÎTbj 

IDEM A ANNUAIRE 'MICRO SYSTEMES’ L ******* 

DFGDFG r C] 

SDF6SDF L **** 

ESCALIER r CK3CA3CB3 

M.Z. ETUDIE ET CALCULE POUR VOUS LE MEILLEUR ESCALIER D’APRES UNE PENTE DONNEE. L ***** 

PAR I SCOP r CK3CA3CB3 

POUR FANA DE CINE.FICHIER FILMS t SALLES! RECH. PAR CATEGOR I ES; REAL I SAT . ! AN ! PA YS ! ACTEURS . L ******** 

R.L.C. SERIE ET PARALLELE r CK3CA3CB3 

DETERMINE LES VALEURS D’UN CONDENSATEUR; D’UNE RESISTANCE; D’UNE SELF DANS UN CIRCUIT. L *** 

THEME ASTRAL r EB ^ 

POUR INITIES.. QUEL AVENIR VOUS RESERVENT LES PLANETES SELON VOS DATE ET LIEU DE NAISSANCE L ******** 

TABLE TRAÇANTE : . . . . r CK3CB3 

PLUSIEURS PROG. DE DEMO SUR T. T ’NATANABE’ . NOUS CONTACTER POUR PLUS AMPLES INFOS. L 


— BAS I C — 
64K/oc t 
-BASIC— 

v8 K é8 

30K/oct 

— BAS I C- 


VM 

48K/oc t 
—BAS I C— 
25K/oc t 
—BAS I C— 





48K/oc t . J 
VM 5060 -, 

4K/oc t . J 
VM 5060 t 
5K/oct . J 
VM 5060 -, 
48K/oc t . J 
-BASIC- -, 
3K/oct . J 
-BASIC- -, 
64K/oc t . -* 




I 




•« 


p« 


2 DATA 176, 195, 175, 190, 175, 179, 174, 166, 172, 154, 170, 144, 164, 132, 156,116, 148, 104 
4 DATA 142,95,138,89,135,84,134,76,131,70,130,50,131,37,130,34,130,30,129,28 
6 DATA 126, 28, 126, 32, 126, 2B, 125, 25, 123, 24, 122, 26, 122, 33, 122, 26, 120, 21, 118, 20 
8 DATA 116,23,116,26,118,33,116,26,116,23,114,20,112,20,111,22,112,27,113,34 
10 DATA 112,27,111,22,109,19,105,18,103,19,102,24,103,30,106,40,112,56,112,66 
12 DATA 114,76,117,81,120,86,122,91,129,117,134,132,138,146,141,164,143,178,144,186 
14 DATA 146,196,148,207,152,214,156,220,162,224,168,224,173,222,178,216,183,206 
16 DATA 188, 192, 192, 177, 194, 160, 196, 144, 196, 131 , 195, 126, 187,112, 1B2, 105, 173,99 
IB DATA 168, 98, 164,99, 160, 100, 156, 1 15, 160, 100, 154,1 10, 160, 100, 156,96, 152,96 
20 DATA 148, 92, 145, 88, 150, B8, 145,88, 139, 89, 148, 92, 152, 96, 156,96, 162, 94, 168, 94 
22 DATA 180, 95, 192, 9B, 196, 99, 205, 96, 208, 94, 206, 90, 200, 90, 206, 90, 202, 84 
24 DATA 196, 7B, 192, 76, 183, 78, 176,80, 164,80, 152, 77, 131,70, 999, 999 
26 DATA 40,72,96,80,98,88,98,100,96,122,92,999,999 
28 DATA 112,66,94,65,77,65,66,66,56,68,44,72,40,75,38,82,37,88 
30 DATA 39, 95, 42, 10t,4B, 106, 56, 111,66, 116, 94, 129, 110, 133, 94, 129, 90, 146, 89, 156 
32 DATA 90, 146,30, 160,54,136,56,132,54,134,60,141,65, 142,60,141,54,134,64,140 
34 DATA 70,140,64,140,54,134,999,999 

36 DATA 60, 133,66, 137,76, 138,73, 135,64, 132,60, 124,56, 122,52, 122, 49, 124,46, 122 

37 DATA 44,122,42,126 

38 DATA 54,136,42,126,31,117,31,113,26,110,29,112,30,100,29,94,28,90,24,84,22,72 
40 DATA 23,62,22,63,19,72,20,85,19,78,10,56,11,69,15,78,18,86,999,999 

42 DATA 10,60,6,56,9,72,16,88,14,84,10,81,7,74,5,68,0,64,5,73,6,84,12,93,18,106 

43 DATA 19,118 

44 DATA 22, 122,24, 126,40, 145,52, 160, 67, 179,80, 196,87,216, 100,258,999,999 
46 DATA 75,244,78,232,80,226,84,220,87,216,999,999 

48 DATA 108,215,113,216,118,220,121,224,123,229,999,999 

50 DATA 146,196,139,199,136,202,133,207,131,214,130,222,125,264,999,999 

52 DATA 80, 160,87, 168,95, 180, 100,190,120,250, 123,264, 125,276, 125,280, 124,285 

54 DATA 121,290,116,292,110,292,104,290,98,290,96,290,89,292,91,286,89,292,88,300 

56 DATA 999,999,70,212,65,206,58,201,54,200,67,179,54,200,52,160,54,200 

58 DATA 48,200,44,201,41,204,39,208,38,213,38,217,40,228,40,237,38,242,33,251 

60 DATA 30,257,28,265,28,273,999,999 

62 DATA 40, 145,38, 160,34, 175,34, 204,30,220,26, 244, 18,265, 16, 270, 15,278, 16,283 
64 DATA 20,288,24,290,30,292,35,292,44,270,57,286,50,283,57,286,60,290,63,298 
66 DATA 999,999,54,316,56,308,60,302,63,298,68,295,73,293,77,293,83,296,88,300 
68 DATA 95,312,999,999 

70 DATA 103,290, 101 , 300, 95, 312,95, 316,96,324,94,330,90,337,8?, 349,86,356,79, 359 
72 DATA 76,362,75,366,80,368,84,364,86,350,90,344,97,336,102,325,104,310,109,300 
74 DATA 110,292,110,280,111,270,114,258,114,248,109,240,999,999 
76 DATA 132, 234, 130,246, 127,258, 129, 275, 129, 284, 124, 293, 1 18, 320, 112,343, 104,360 
78 DATA 96,370,88,378,78,380,73,377,68,380,58,377,46,366,38,354,33,338,31,314 
80 DATA 27,293,999,999,35,294,40,300,42,310,42,322,48,334,52,347,54,362,62,372 
82 DATA 70,372,74,370,76,365,69,359,69,356,72,354,62,349,56,340,53,330,57,316 
84 DATA 56,302,51,295,43,292,999,999 

86 DATA 38,293,44,295,48,304,50,311,56,320,60,328,64,350,66,358,71,362,999,999 
88 DATA 70,366,64,362,60,355,57,336,54,327,49,317,46,305,43,298,36,294 
90 DATA 999,999,82,363,82,352,85,344,92,337,95,326,91,314,91,308,95,298,94,284 
92 DATA 98,268,96,261,89,256,88,251,92,246,999,999 

94 DATA 54,330,61,334,66,334,69,330,63,328,56,330,999,999,80,330,84,334,94,330 
96 DATA 84,328,80,330,999,999,77,332,77,326,78,321,999,999 
98 DATA 73,317,73,314,999,999,77,317,77,314,999,999,66,306,72,307,74,305,77,307 
100 DATA 85,306,74,304,66,306,72,302,75,304,78,302,85,306,999,999 


102 DATA 58,280,64,277,999,999,73,274,75,282,77,272,999,999,82,276,90,280,999,999 
104 DATA 120, 135, 124, 135, 124, 140, 126, 136, 126, 142, 132, 138, 130, 145, 133,142, 134, 146 
106 DATA 136, 144, 137, 14B, 999, 999, 126, 130, 126, 135, 130, 133, 130, 138, 133, 135, 135, 140 
108 DATA 999,999, 129, 128, 131 , 132, 134, 132, 999,999, 109, 179, 112,176,114, 179, 999, 999 

110 DATA 62,333,62,330,63,330,63,334,64,334,64,331,999,999,84,329,85,333,86,334 

111 DATA 86, 328, 87, 328, 87, 333, 999, 999, 56, 337, 64, 338, 999, 999, 82, 338, 8B, 339, 999, 999 

112 DATA 40,214,36,212,37,210,41,211,999,999 
114 DATA 107,-20,106,-60,999,999 

116 DATA 102,-30, 101,-28, 101,^26, 104,-24, 109,-21, 112,-20, 115,-20, 116,-22, 117,-24 
118 DATA 115,-26,112,-28,106,-32,999,999 

120 DATA 126,-10, 124,-8, 123, -5, 125,0, 128,6, 132,8, 136, 10, 139, 9, 141,5, 144,-1, 145,-5 
122 DATA 145,-14,145,-30,144,-48,143,-64,999,999 

124 DATA 147,-18, 151,-16, 155,-10, 156,-6, 156, -2, 155,0, 153,0, 151,-3, 150, -9, 150, -14 
126 DATA 151,-lè, 153,-17,157,-16,999,999 

128 DATA 164,-2,162,-1,159,-5,158,-8,159,-12,160,-12,162,-10,163,-7,164,0,163,-7 

130 DATA 164,-10, 166,-10, 168,-5, 172, 2, 170, -9, 174,0, 176,3, 178,5, 179,3, 178,-2 

132 DATA 179,-9,999,999 

1100 TEÜT :LF 20:6RAPH ï SORGM 

1110 60SUB "A* 

. 1120 GOTO 1170 
1130 *A"ïREAD X sREAD Y 

1140 READ VîREAD H: IF V=9990R W=999THEN RETÜRN 

1150 LINE ( X, Y) - (V,W) , 0, 0 

1160 X=VSY=W:B0T0 1140 

1170 READ Cî FOR 1=1TQ C 

1180 60SUB 

1190 NEXT I 

1200 TEXT *.LF 8: END 








Accéder à la bibliothèque de programmes. 

Etre informé sur les diverses possibilités de la machine. ■ 

Echanger vos programmes personnels contre ceux des autres membres du club. 
Recevoir un bulletin périodique vous informant de la vie du club et de la 
société Sharp. 


L’INSCRIPT ION AU CLUB S 

Vous recevrez la carte d'identité Sharp personnelle. Elle vous sera demandée pour : accéder 
à la bibliothèque de programmes, ou échanger les programmes avec les membres du club. 

• Votre inscription au Club vous donne dtoit à un abonnement gratuit pour 2 parutions 
au terme duquel vous pourrez bénéficier d'un abonnement d'un an (4 parutions), au 
prix préférentiel de 70 F en adressant votre demande à 

Editions Adepte, 24, rue Marc-Seguin, 75018 Paris 




B fi) CD 31) H) 33) IB « ■ ËHiSS 
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8 B M (SHARPENTIER) 

151-153* avenue Jean-Jaurès 
93307 AUBERVILLIERS Cedex 


BULLETIN D’INSCRIPTION AU CLUB 

SHARPENTIER 


Nom : 

Adresse : — 
Code postal 
Profession 
Utilisation : 


Prénom 

Ville : I 
Age : _ 


Commerçant chez qui la machine a été achetée : 


Type de machine : 

N® de la machine 

Je vous joins un chèque de 50 F 
N® Banque 


Date : 


Signature : 


